webForumDet fria alternativet

Klicka två gånger?

ASP

14 svar · 548 visningar · startad av DiDjo

Medlem sedan nov. 2002544 inlägg
Frågan#1

Hejsan! Varför måste jag klicka två gången på länken för att ta bort inlägget? Brevet skickas ut varje gång jag klickar... men det tas bort andra gången...

if request.querystring("vad")="neka" then
Set rs6 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM mess"
rs6.Open Addera, Connect, 3, 3
rs6.addnew
rs6("fran") ="DiDjocrew"
rs6("vems")= rs("vems")
rs6("titel") ="Nekade din förfrågan"
rs6("text")= "Hejsan! " & rs("vem") & " nekade din kompis förfrågan"
rs6("skickat") = True
rs6("datum") = now
rs6("last") = 0
rs6("auto") = True
rs6.update
rs6.close

Set rs5 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kompis where id = "&request.querystring("id")
rs5.Open Addera, Connect, 3, 3
rs5.delete
rs5.update
rs5.close
end if

Och så länken:

<b><a href="vanner_nya.asp?vad=neka&id=<%=rs("id")%>">Neka</a></b>
Medlem sedan jan. 20032 285 inlägg
#2

Går det kanske bättre om du gör allt med SQL-frågor?

strSQL = "INSERT INTO mess (fran, vems, titel, text, skickat, datum, last, auto) VALUES ('DiDjocrew', '" & rs("vems") & "', 'Nekade din förfrågan', 'Hejsan! " & rs("vem") & " nekade din kompisförfrågan.', True, Now(), 0, True)"
Connect.Execute(strSQL)

strSQL = "DELETE FROM kompis WHERE id = " & Request.QueryString("id")
Connect.Execute(strSQL)
Medlem sedan nov. 2002544 inlägg
#3

Blir säkert jätte bra! Men jag fick detta:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 
[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement. 

/kommun/!temp/vanner_nya.asp, line 66

o de e på första SQL frågan...
obs, ändrade -->, 'Nekade din förfrågan',<-- till --> '" & rs("vems") & " nekade din förfrågan',<---

Och jag är INTE bra på SQL =P

Medlem sedan jan. 20032 285 inlägg
#4

Hur ser SQL-frågan ut om du skriver ut den?

Medlem sedan nov. 2002544 inlägg
#5

öö, bara response.write på de hela? o.O :e

Medlem sedan jan. 20032 285 inlägg
#6
strSQL = "INSERT INTO mess (fran, vems, titel, text, skickat, datum, last, auto) VALUES ('DiDjocrew', '" & rs("vems") & "', 'Nekade din förfrågan', 'Hejsan! " & rs("vem") & " nekade din kompisförfrågan.', True, Now(), 0, True)"
Response.Write(strSQL) : Response.End
Connect.Execute(strSQL)
Medlem sedan nov. 2002544 inlägg
#7
INSERT INTO mess (fran, vems, titel, text, skickat, datum, last, auto) VALUES ('DiDjocrew', 'KeNNy', 'Nekade din förfrågan', 'Hejsan! DiDjocrew nekade din kompisförfrågan.', True, Now(), 0, True)

Så skrev den ut

Medlem sedan jan. 20032 285 inlägg
#8
strSQL = "INSERT INTO mess (fran, vems, titel, [text], skickat, datum, [last], [auto]) VALUES ('DiDjocrew', '" & rs("vems") & "', 'Nekade din förfrågan', 'Hejsan! " & rs("vem") & " nekade din kompisförfrågan.', True, Now(), 0, True)"

Helst ska du byta namn på de klamrade fälten.

Medlem sedan nov. 2002544 inlägg
#9

Ska de fortfarande vara klamrade?

Får ta o göra de sen... måste bygga om hela mail systemet då nästan >.<

Medlem sedan nov. 2002544 inlägg
#10

Fick klicka två gånger på länken iaf, men brevet skickades bara en gång, vilket är en framgång :e

Medlem sedan nov. 2002544 inlägg
#11

Får väl ta o klicka två gånger då =P Bara så att det inte blev två brev =)

Medlem sedan jan. 20032 285 inlägg
#12

Verkar mycket märkligt! Det är inte så att det skapas två poster i databasen när man skickar en förfrågan? Men om det inte skickas två meddelanden nu så är det ju ingen katastrof, i alla fall. :)

Medlem sedan nov. 2002544 inlägg
#13

Det skickas inte två poster... bara att man måste klicka två gånger :S Kan det vara så för att dessa sql frågor inte ligger högt upp på sidan? Utan för att de ligger i mitten av sidan?

Medlem sedan dec. 20025 871 inlägg
#14

Att posten "inte tas bort" beror antagligen på att den sida som du ser när du studsar tillbaks är en cachad version. :)

Medlem sedan nov. 2002544 inlägg
#15

Okej, jag löste det! Det togs bort första gången, men sidan uppdaterades inte! Så jag la till en response.redirect, då löstes problemet! Tack så mycket Sebbe :birp

LeonL: Exakt när jag löste det så skrev du svaret på det hela ;)

426 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
271 ms — hämta tråd, inlägg och bilagor (db)
151 ms — ändringar (db)