Cari amici,
sul sito www.mimanchitu.it ho creato una pag di registrazione utenti utilizzando la procedura di inserimento dati di Ultradev 4....
Ebbene al momento dell'invio il server restituisce errore 500...
Ho chiesto il controllo all'amministratore.... mi ha detto che facendo il debug l'errore risulta essere nel codice....e più precisamente nella parte dell'inserimento.... tanto è vero che se inserisco l'unica username (inserita a mano nel database) esistente, mi rimanda alla pagina di errore utente già registrato!
Cosa devo fare..... e meno male che Ultradev è il migliore e più semplice editor!!! :)))))))))
Vi ringrazio in anticipo!
P.S. Questo è il codice di esempio della pagina:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/connUtenti.asp" -->
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
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 = ""
%>
<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
MM_dupKeyRedirect="reg_no.asp"
MM_rsKeyConnection=MM_connUtenti_STRING
MM_dupKeyUsernameValue = CStr(Request.Form("username"))
MM_dupKeySQL="SELECT username FROM Tabella1 WHERE username='" & MM_dupKeyUsernameValue & "'"
MM_adodbRecordset="ADODB.Recordset"
set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
MM_rsKey.ActiveConnection=MM_rsKeyConnection
MM_rsKey.Source=MM_dupKeySQL
MM_rsKey.CursorType=0
MM_rsKey.CursorLocation=2
MM_rsKey.LockType=3
MM_rsKey.Open
If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
' the username was found - can not add the requested username
MM_qsChar = "?"
If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
Response.Redirect(MM_dupKeyRedirect)
End If
MM_rsKey.Close
End If
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) <> "") Then
MM_editConnection = MM_connUtenti_STRING
MM_editTable = "Tabella1"
MM_editRedirectUrl = "reg_ok.asp"
MM_fieldsStr = "nome|value|cognome|value|indirizzo|value|citt|value|telefono|value|cellulare|value|email|value|username|value|password|value"
MM_columnsStr = "nome|',none,''|cognome|',none,''|indirizzo|',none,''|città|',none,''|telefono|',none,''|cellulare|',none,''|e-mail|',none,''|username|',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 i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(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
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & 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
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connUtenti_STRING
Recordset1.Source = "SELECT * FROM Tabella1"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form method="POST" action="<%=MM_editAction%>" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">Nome:</td>
<td>
<input type="text" name="nome" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Cognome:</td>
<td>
<input type="text" name="cognome" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Indirizzo:</td>
<td>
<input type="text" name="indirizzo" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Città:</td>
<td>
<input type="text" name="citt" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Telefono:</td>
<td>
<input type="text" name="telefono" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Cellulare:</td>
<td>
<input type="text" name="cellulare" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">E-mail:</td>
<td>
<input type="text" name="email" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Username:</td>
<td>
<input type="text" name="username" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Password:</td>
<td>
<input type="text" name="password" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td>
<input type="submit" value="Inserisci record">
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="true">
</form>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
%>
Mad Effe