Codice PHP:
<%
Option Explicit
'If Session("login") then
%>
<html>
<head>
<title>Inserisci classifiche</title>
</head>
<body bgcolor="#C7E2FA">
<%
Dim strConn, message
Dim tabella, giocatore, club, categoria, cat_assoluta, ugiro, dgiro, tgiro
call Main()
Sub Main()
Dim submitted, query, form
submitted = Request.QueryString("submitted")
If submitted then
call vendemmia(form)
query = costruisci_query(giocatore,club,categoria,cat_assoluta,ugiro,dgiro,tgiro)
strConn = Application("dbconn")
'questa e' in attrezzi_db.inc, ti ricordi? quindi ce l'abbiamo
call fai_query(strConn, query)
call quale_risultato(message)
else
end if
end Sub
Sub vendemmia(form)
'raccogli i dati dalla form
'questo Replace lo facciamo per il carattere """
'altrimenti la Database si confonde
giocatore = Replace(Request.Form("giocatore"),"'","''")
club = Replace(Request.Form("club"),"'","''")
categoria = Replace(Request.Form("categoria"),"'","''")
cat_assoluta = Replace(Request.Form("cat_assoluta"),"'","''")
ugiro = Replace(Request.Form("ugiro"),"'","''")
dgiro = Replace(Request.Form("dgiro"),"'","''")
tgiro = Replace(Request.Form("tgiro"),"'","''")
end sub
Function costruisci_query( giocatore,club,categoria,cat_assoluta,ugiro,dgiro,tgiro)
'costruisce la query
Dim strsql
strsql = "INSERT INTO tbl_20061210_rapallo ( giocatore, club, categoria, cat_assoluta, ugiro, dgiro, tgiro)"
strsql = strsql & " Values('"
strsql = strsql & giocatore & "','"
strsql = strsql & club & "','"
strsql = strsql & categoria & "','"
strsql = strsql & cat_assoluta & "','"
strsql = strsql & ugiro & "','"
strsql = strsql & dgiro & "','"
strsql = strsql & tgiro & "')"
'se hai dei guai costruendo questa, metti un
Response.Write strsql & "
"
'cosi la vedi e la puoi accomodare
costruisci_query = strsql
End Function
Sub quale_risultato(message)
'Pcronaca il risultato dell query e format una risposta
Select case message
case "ok"
response.write "Tutto e' andato bene,
Grazie per la collaborazione."
response.write "
<div align='center'>[url='JavaScript:history.go(-2)']Click to go back[/url]</div>"
case "not ok"
response.write "E' un grosso disastro!
Chissa cosa e' successo?"
response.write "Prova a scrivere la query e altre variabili per vedere se riesci a risolvere il problema."
response.write "
Anche la professione del falegname e' onorevole ;o)"
response.write "
<div align='center'>[url='JavaScript:history.back()']Click to go back[/url]</div>"
case else
response.write "Se sei qui e' metafisica pura"
end select
end sub
%>
<p align="center" style="margin-top: 0; margin-bottom: 0"></p>
<table border="0" width="80%" align="center">
<tr>
<td align="right">[url="gestione_sito.asp"]torna a gestione[/url]</td>
</tr>
</table>
</body>
</html>
Purtroppo mi da errore.
Rispondi quotando
