8 messaggi dal 19 settembre 2001
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

Mad Effe
95 messaggi dal 18 aprile 2001
il problema non è di dreamwaever...
prova a disabilitare i messaggi di errore brevi in IE
Strumenti\opzioni Internet...\Scheda Avanzate\Voce Esplorazione\Checkbox "mostra messaggi di errore HTTP brevi.

Cosi' ti dovrebbe mostrare un messaggio di errore + dettagliato e quindi riuscirai a comprendere dov'e' l'errore....

Ciao by Cobra®
95 messaggi dal 18 aprile 2001
Ho provato a registrarmi e mi ha dato:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Driver ODBC Microsoft Access] Per l'operazione è necessaria una query aggiornabile.

/utenti/registrati.asp, line 116


quindi non hai i permessi di scrittura nella cartella del db... contatta il tuo Amministratore.....

Ciao by Cobra®

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.