<%
dim CnnBill ,cmd
set CnnBill =server.createobject("adodb.connection")
set rs =server.createobject("adodb.Recordset")
CnnBill.open "provider = sqloledb ;user id =sa ;initial catalog = krt"
If Request.Form("Save")<>"" Then
Save()
End IF
Private Sub Save
dim cmdbill
set cmd =server.createobject ("adodb.command")
cmd.activeconnection = CnnBill
cmd.commandtext = "SP_insert_Visitors"
cmd.commandtype = 4
cmd.parameters("@VisitorName") = Request.Form("VisitorName")
cmd.parameters("@Notes") =Request.Form("Notes")
cmd.execute
Response.Redirect "Visit.asp"
End Sub
%>
ولاية الخرطوم - عن السودان
