<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 65001 " %>
<%
Ciemnawy MM_editAction
MM_editAction = CStr (Request.ServerVariables ("SCRIPT_NAME"))
Jeżeli (Request.QueryString <> "") Wtedy
MM_editAction = MM_editAction & "?" & Server.HTMLEncode (Request.QueryString)
Kończyć Jeżeli
'redagować rejestr redagować
Ćmić MM_abortEdit
MM_abortEdit = fałszywy
%>
<%
'IIf urzeczywistnienie
Funkcja MM_IIf (warunek, ifTrue, ifFalse)
Jeżeli warunek = "" Wtedy
MM_IIf = ifFalse
Inny
MM_IIf = ifTrue
Kończyć Jeżeli
Kończyć Funkcja
%>
<%
Jeżeli (CStr (Prośba ("MM_insert")) = "form1") Wtedy
Jeżeli (Nie MM_abortEdit) Wtedy
'wykonywać the wszywka
Ćmić MM_editCmd
Ustawiać MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_NBconnect1_STRING
MM_editCmd.CommandText = "WSZYWKA W dbo. Nazwa użytkownika (FirstName, Przydomek, Powiązanie, email, Username, Hasło) WARTOŚĆ (? ? ? ? ? ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter ("param1", 202, (1), 15, Request.Form ("FirstName")) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter ("param2", 202, (1), 20, Request.Form ("Przydomek")) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter ("param3", 202, (1), 20, Request.Form ("Powiązanie")) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter ("param4", 202, (1), 50, Request.Form ("email")) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter ("param5", 202, (1), 15, Request.Form ("username")) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter ("param6", 202, (1), 15, Request.Form ("Hasło")) 'adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
Kończyć Jeżeli
Kończyć Jeżeli
%>
<%
Ćmić Recordset1__MMColParam
Recordset1__MMColParam = "(1)"
Jeżeli (Sesyjny ("MM_UserName") <> "") Wtedy
Recordset1__MMColParam = Sesja ("MM_UserName")
Kończyć Jeżeli
%>
<%
Ćmić Recordset1
Ćmić Recordset1_cmd
Ćmić Recordset1_numRows
Ustawiać Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_NBconnect1_STRING
Recordset1_cmd.CommandText = "WYBIÓRKA * OD dbo. Nazwa użytkownika DOKĄD Username =?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter ("param1", 200, (1), 15, Recordset1__MMColParam) 'adVarChar
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = (0)
%>
Untitled Document
|
|
Hi <%= (Recordset1.Fields.Item ("Powiązanie"). Wartość) %>
|
|
|
|
|
|
|
|
|
|
|
|
<%
Recordset1.Close ()
Set Recordset1 = Nic
%>
|