Jag undrar hur fan man ska göra för att slippa dessa obehagliga meddelande. Jag såg på en sida att dom hade ett fält där det stod vad blir 4+5 och då skulle man fylla i 9 om man fyllde i fel siffra så skickades man inte vidare. Hur gör man en sådan grej eller vet ni ett annat sätt man kan göra på för inte få det problemet??
Jag hade kanske gjort något liknande:
skapa två random tal -> addera dom spara dom i Session -> Visa båda talen och be dom addera dom -> Vid postning av gästboksinlägget kontrollera det värdet du har i inputen med session värdet -> Om det stämmer då är det Ok att posta inlägget.
Har du någon erfarenhet av ASP ragnared? Det är rätt mycket kod att läsa igenom. Börja lite själv och om du får problem så finns vi på wF här för att hjälpa dig.
Randomize()
sngRandomValue = Round(1 * Rnd() * 10)
sngRandomValue2 = Round(1 * Rnd() * 10)
'Spara till Session
Session("<insertName>") = CInt(sngRandomValue + sngRandomValue2) ' Spara så vi vet vilket Värde det _ska_ vara på nästa sida.
och ändra <insertname> till ett namn som passa dig?
(Du borde verkligen göra en CSS mall för det. Just nu har du hur mycket kod som gör din sida seg att ladda för en användare.
Och sist:
If Request.QueryString("do")= "jepp" Then
Efter den där gör du själva kontrollen:
If Session("<insertName>") = Request.Form("sum") Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas/main.mdb")
Namn = Request.Form("namn")
Email = Request.Form("email")
Hemsida = Request.Form("hemsida")
Meddelande = Request.Form("meddelande")
Datum = Now
If Hemsida <> "" Then
If Left(Hemsida,7) = "http://" Then
Hemsida = Hemsida
Else
Hemsida = "http://" & Hemsida
End If
End If
SQL="Insert Into inlagg"
SQL = SQL & "(Namn, Email, Hemsida, Meddelande, Datum)"
SQL = SQL & "Values('"& Namn &"','"& Email &"','"& Hemsida &"','"&Meddelande &"',#"& Datum &"#)"
'Response.Write SQL
Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
End If
Response.Redirect "gastbok.asp"
... något sådant borde fungera... ändra bara '<insertName>' till något mer passande.
Jag har gjort som du visat men det blir ett fel och det är när jag fyllt i alla uppgifterna samt fyllt i tex. 1+2 att det blir 3 så kommer jag tillbaka till samma sida men det uppdateras inte ute i gästboken det jag skrivit och jag har fyllt i rätt summa oxå. Vad är det då som blir fel. sen vill jag tacka dig för all tid du lagt ner och hjälpt mig ......
har inte kollat igenom din kod (kan kanske göra det ikväll) men <> i din session namn behöver du inte ha... var mer att du skulle ändra <insert> till = www vet inte om det är det som är felet med... återkommer ikväll om du inte har löst det.
<%If Request.Querystring("do")= "" Then
Randomize()
sngRandomValue = Round(1 * Rnd() * 10)
sngRandomValue2 = Round(1 * Rnd() * 10)
'Spara till Session
Session("sand") = CInt(sngRandomValue + sngRandomValue2) ' Spara så vi vet vilket Värde det _ska_ vara på nästa sida.
Response.Write Session("sand") & "<br>" & Request.form("sum")
Response.End
Kontrollera att Sessin och sum är samma värde..
Du får helt enkelt börja felsöka din kod. Du vet att felet är mellan första sidan och när du ska spara datan i databasen. Gör små moment och ta response.End för att se om datan du vill ha verkligen blir det.
vad menar du med att session och sum är samma värde ? jag provade att lägga in det du skrev men funka inte det heller. Jag har fått sidan till att fungera som du skrev från början men den slår i från hela tiden tex om det står 3+1 och jag skriver 4 så blir det inget inlägg i gästboken så det är något mellan den kombinationen. Att den inte känner av om summan är riktig ?
Jag kommer till gästboken men den är helt tom förutom att det står 5 och sedan under 5. men inget annat står på sidan. jag fyllde i uppgifterna på sidan och vad blir 0+5 var frågan då svarade jag 5 om det har med varandra att göra annars vet jag inte vad det är för fel som jag gör.
<%If Request.Querystring("do")= "" Then
Randomize()
sngRandomValue = Round(1 * Rnd() * 10)
sngRandomValue2 = Round(1 * Rnd() * 10)
'Spara till Session
Session("sand") = CInt(sngRandomValue + sngRandomValue2) ' Spara så vi vet vilket Värde det _ska_ vara på nästa sida.
%>
<b>Vad blir <%= sngRandomValue %> + <%= sngRandomValue2 %>?<br>
<input type="text" name="sum" style="font-family: Verdana; font-size: 8pt; border: 1 solid #000000">
</b>
<%If Request.QueryString("do")= "jepp" Then
Response.Write Session("sand") & "<br>" & Request.form("sum")
Response.End
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas/main.mdb")
Namn = Request.Form("namn")
Email = Request.Form("email")
Hemsida = Request.Form("hemsida")
Meddelande = Request.Form("meddelande")
Datum = Now
If Hemsida <> "" Then
If Left(Hemsida,7) = "http://" Then
Hemsida = Hemsida
Else
Hemsida = "http://" & Hemsida
End If
End If
SQL="Insert Into inlagg"
SQL = SQL & "(Namn, Email, Hemsida, Meddelande, Datum)"
SQL = SQL & "Values('"& Namn &"','"& Email &"','"& Hemsida &"','"&Meddelande &"',#"& Datum &"#)"
'Response.Write SQL
Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
Response.Redirect "gastbok.asp"
End If%>
<%
If Request.QueryString("do")= "jepp" Then
If CStr(Session("sand") & "") = CStr(Request.form("sum") & "") Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas/main.mdb")
Namn = Request.Form("namn")
Email = Request.Form("email")
Hemsida = Request.Form("hemsida")
Meddelande = Request.Form("meddelande")
Datum = Now
If Hemsida <> "" Then
If Left(Hemsida,7) = "http://" Then
Hemsida = Hemsida
Else
Hemsida = "http://" & Hemsida
End If
End If
SQL="Insert Into inlagg"
SQL = SQL & "(Namn, Email, Hemsida, Meddelande, Datum)"
SQL = SQL & "Values('"& Namn &"','"& Email &"','"& Hemsida &"','"&Meddelande &"',#"& Datum &"#)"
'Response.Write SQL
Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
End If
Response.Redirect "gastbok.asp"
End If%>
Tack så himla mycket voigtann1 nu funkar det. Det är skönt att det finns så snälla människor på webforum.nu. Utan er så hade inte många som mig kommit så långt... Ha det gått och tack ännu en gång....
276 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
