Salve amici.....
ho creato una pagina di registrazione utenti http://www.mimanchitu.it/utenti/registrati.asp .....
inserisco i dati ma il risultato è la restituzione di un errore 500 del server....
Ho fatto controllare con il debug dall'amministratore del server, e mi ha detto che il problema è nel codice dell'inserimento!
Ma come è possibile se ho creato tutto automaticamente con ultradev????
La cosa strana è che la pagina legge nel database ....infatti se inserisco la mia username (l'unica che ho inserito direttamente alla creazione del db) mi rimanda alla pagina che ho creato per username già esistenti!!! dove sbaglio???? Grazieeeeeeeee! :)
N.B. questo è il codice 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