Chiedo lumi al Forum ...
ho questa pagina ..
<%@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 = ""
%>
<%
' *** Update Record: set variables
If (CStr(Request("MM_update")) = "form_ins_risultato" And CStr(Request("MM_recordId")) <> "") Then
MM_editConnection = MM_conn_parmabaseball_STRING
MM_editTable = "partite"
MM_editColumn = "IDpartita"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = "ins_risultato.asp"
MM_fieldsStr = "data|value|ora|value|1inn_ospite|value|2inn_ospit e|value|3inn_ospite|value|4inn_ospite|value|5inn_o spite|value|6inn_ospite|value|7inn_ospite|value|8i nn_ospite|value|9inn_ospite|value|R_ospite|value|H _ospite|value|E_ospite|value|1inn_casa|value|2inn_ casa|value|3inn_casa|value|4inn_casa|value|5inn_ca sa|value|6inn_casa|value|7inn_casa|value|8inn_casa |value|9inn_casa|value|R_casa|value|H_casa|value|E _casa|value|W|value|L|value|S|value|HR|value|note| value"
MM_columnsStr = "Data|#,none,NULL|Ora|#,none,NULL|1inn_ospite|none ,none,NULL|2inn_ospite|none,none,NULL|3inn_ospite| none,none,NULL|4inn_ospite|none,none,NULL|5inn_osp ite|none,none,NULL|6inn_ospite|none,none,NULL|7inn _ospite|none,none,NULL|8inn_ospite|none,none,NULL| 9inn_ospite|none,none,NULL|R_ospite|none,none,NULL |H_ospite|none,none,NULL|E_ospite|none,none,NULL|1 inn_casa|none,none,NULL|2inn_casa|none,none,NULL|3 inn_casa|none,none,NULL|4inn_casa|none,none,NULL|5 inn_casa|none,none,NULL|6inn_casa|none,none,NULL|7 inn_casa|none,none,NULL|8inn_casa|none,none,NULL|9 inn_casa|none,none,NULL|R_casa|none,none,NULL|H_ca sa|none,none,NULL|E_casa|none,none,NULL|W|',none,' '|L|',none,''|S|',none,''|HR|',none,''|Note|',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
%>
<%
' *** Update Record: construct a sql update statement and execute it
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
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_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId
If (Not MM_abortEdit) Then
' execute the update
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
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="negato.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthor ization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim rs_partite__MMColParam
rs_partite__MMColParam = "1"
If (Request.QueryString("IDpartita") <> "") Then
rs_partite__MMColParam = Request.QueryString("IDpartita")
End If
%>
<%
Dim rs_partite
Dim rs_partite_numRows
Set rs_partite = Server.CreateObject("ADODB.Recordset")
rs_partite.ActiveConnection = MM_conn_parmabaseball_STRING
rs_partite.Source = "SELECT * FROM partite WHERE IDpartita = " + Replace(rs_partite__MMColParam, "'", "''") + ""
rs_partite.CursorType = 0
rs_partite.CursorLocation = 2
rs_partite.LockType = 1
rs_partite.Open()
rs_partite_numRows = 0
%>
<html>
<head>
<title>Inserimento risultato</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form_ins_risultato" target="_self" id="form_ins_risultato">
<table width="700" border="0" cellspacing="0" cellpadding="0">
qui c'è la pagina ma non riesco ad incollarla tutta ... in ogni caso non credo serva ..
</table>
<input type="hidden" name="MM_update" value="form_ins_risultato">
<input type="hidden" name="MM_recordId" value="<%= rs_partite.Fields.Item("IDpartita").Value %>">
</form>
</body>
</html>
<%
rs_partite.Close()
Set rs_partite = Nothing
%>
Quando provo a fare l'aggiornamento database mi dà :
Tipo di errore:
Microsoft JET Database Engine (0x80040E14)
Errore di sintassi nell'istruzione UPDATE.
/admin/dettaglio_risultato.asp, line 111
Pagina:
POST 393 bytes to /admin/dettaglio_risultato.asp
POST Data:
data=01%2F01%2F2004&ora=21.00.00&1inn_ospite=&2inn _ospite=&3inn_ospite=&4inn_ospite=&5inn_ospite=&6i nn_ospite=&7inn_ospite=&8inn_ospite=&9inn_ospite=& R_ospite=2&H_ospite=&E_ospite=&1inn_casa=&2inn_cas . . .
Qualcuno sa dirmi perché ??
Grazie e scusate per la lunghezza
Rispondi quotando
