ma è qui che devo mettere le parentesi quadre? anche se nn capisco che sono quelle scritte none.. bho..
posto tutto il codice magari capisci megliocodice:MM_columnsStr = "Nome|',none,''|Cognome|',none,''|E-Mail|',none,''|Conto|none,none,NULL|Indirizzo|',none,''|Telefono|',none,''|Password|',none,''"
codice:<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_connessione_STRING MM_editTable = "Utente" MM_editRedirectUrl = "pagpers.asp" MM_fieldsStr = "textfield|value|textfield2|value|textfield3|value|textfield4|value|textfield5|value|textfield6|value|textfield7|value" MM_columnsStr = "Nome|',none,''|Cognome|',none,''|E-Mail|',none,''|Conto|none,none,NULL|Indirizzo|',none,''|Telefono|',none,''|Password|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <HTML> <HEAD> <TITLE>Videoteca</TITLE> <STYLE> A:link, A:visited { text-decoration:underline; font-size:12px; font-family:arial; color:666666} A:hover {text-decoration:none; color:666666} A.menu:link, A.menu:visited { text-decoration:none; font-size:10px; font-family:arial; color:666666} A.menu:hover {color:white; background-color:666666; text-decoration:none} </STYLE> </HEAD> <BODY BGCOLOR=#000000 TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0> <TABLE ALIGN=CENTER BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=760> <TR> <TD WIDTH=760 HEIGHT=49 BACKGROUND=img/sfondo_sopra.gif VALIGN=BOTTOM> <FONT COLOR=BLACK FACE=ARIAL STYLE="font-size:18pt; font-weight:bold" TITLE="Videoteca"> La Videoteca </FONT> <IMG SRC=img/logo.gif width="44" height="23" VALIGN=BOTTOM> </TD> </TR> <TR> <TD WIDTH=760 BACKGROUND=img/sfondo_centro.gif BALIGN=TOP> <DIV ALIGN=CENTER> <FONT STYLE="color:black; font-family:arial; font-size:10px"> [ HOME ] [ CERCA ] [REGISTRAZIONE ]</FONT></DIV> <p align="center"> Registrazione nuovo utente </p> <form name="form1" method="GET" action="<%=MM_editAction%>"> <blockquote> <p align="left">Nome <input type="text" name="textfield"> </p> <p align="left">Cognome <input type="text" name="textfield2"> </p> <p align="left"> E-Mail <input type="text" name="textfield3"> </p> <p align="left">Conto <input type="text" name="textfield4"> </p> <p align="left">Indirizzo <input type="text" name="textfield5"> </p> <p align="left">Telefono <input type="text" name="textfield6"> </p> <p align="left">Password <input type="text" name="textfield7"> </p> <p align="left"> <input type="submit" name="Submit" value="Invia"> <input type="hidden" name="MM_insert" value="form1"> </p> </blockquote> <blockquote> <font size="2">mandaci una e-mail per qualsiasi domanda o segnalazione</font> <a href="mailto:pippo@email.com"> <input name="" type="image" src="img/email.gif" width="18" height="12"> </a> </p> </blockquote> </form></TD> </TR> <TR> <TD WIDTH=800 HEIGHT=46 BACKGROUND=img/sfondo_sotto.gif VALIGN=TOP ALIGN=RIGHT> </A> </TD> </TR> </TABLE> </BODY> </HTML>


Rispondi quotando