webForumDet fria alternativet

Varför funkar inte...?

ASP

27 svar · 295 visningar · startad av ampy · sida 2 av 2

Frågan, av ampy

Är hela denna kod rätt. <!-- #include file="adovbs.inc" --> <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (.mdb)};dbq=" & Server.MapPath("forumet.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select From personligt" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("na

Läs frågan i sin helhet →
Medlem sedan okt. 20005 273 inlägg
#21

Response.Buffer = TRUE ska vara högst upp på sidan asso rad 1

sen hade jag glömt bort datumfältet i den förra koden här kommer den korekta:

Set Connect = Server.CreateObject("ADODB.Connection") 
			Connect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("forumet.mdb")
			Connect.open

strSQL1 = "INSERT INTO personligt(namn, epost, rubrik, inlagg, datum, ipnummer)VALUES('"&Session("username")&"', '"&Session("epost")&"', '"&Request.Form("rubrik")&"', '"&Request.Form("inlagg")&"', #"&now()&"#, '"&Request.Servervariables("REMOTE_ADDR")&"')"
Response.Write strSQL1 &"<br>"
'Connect.Execute(strSQL1),,128

If Request.Querystring("ID") ="svar" Then
strSQL2 = "UPDATE members SET poang = poang + 100, antalsvar = antalsvar + 1 WHERE ID = " & Request.QueryString("ref_id")
Response.Write strSQL2
'Connect.execute (strSQL2),,128
End If
Connect.Close
Set Connect = Nothing

Detta var sista chnasen för mig ;)

------------------
Korvfarbror--Med ring på fingret

Medlem sedan feb. 20011 498 inlägg
#22

ska hela koden se ut så här:

[kod]

Response.Buffer = TRUE

<!-- #include file="adovbs.inc" -->

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("forumet.mdb")
Connect.open
strSQL1 = "INSERT INTO personligt(namn, epost, rubrik, inlagg, datum, ipnummer)VALUES('"&Session("username")&"', '"&Session("epost")&"', '"&Request.Form("rubrik")&"', '"&Request.Form("inlagg")&"', #"&now()&"#, '"&Request.Servervariables("REMOTE_ADDR")&"')"
Response.Write strSQL1 &"<br>"
'Connect.Execute(strSQL1),,128

If Request.Querystring("ID") ="svar" Then
strSQL2 = "UPDATE members SET poang = poang + 100, antalsvar = antalsvar + 1 WHERE ID = " & Request.QueryString("ref_id")
Response.Write strSQL2
'Connect.execute (strSQL2),,128
End If
Connect.Close
Set Connect = Nothing

Response.Redirect "forum.asp"

%>

</kod>

Medlem sedan okt. 20005 273 inlägg
#23

vad får du då ??

------------------
Korvfarbror--Med ring på fingret

Medlem sedan feb. 20011 498 inlägg
#24

det blir inget felmeddelande men det läggs inte till något meddelande och ingen poäng i databasen

Medlem sedan okt. 20005 273 inlägg
#25

då tar du bort ' framför Connect.execute

------------------
Korvfarbror--Med ring på fingret

Medlem sedan okt. 20005 273 inlägg
#26

När man använder ', så kommenterar man bort den raden i ASP ;)

Och får man nåt fel i t.ex en SQL-sats så kan man skriva ut den med hjälp av Response.Write, för att lättare se vad som är fel ;)

Hoppas det löser sig :)

------------------
Korvfarbror--Med ring på fingret

Medlem sedan feb. 20011 498 inlägg
#27

nu läggs meddelande till men jag kom på en sak, fältet poang ligger i en annan databas som heter members.mdb.

Medlem sedan juni 20019 024 inlägg
#28

:OO :e :e :e

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

254 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)