LORTE ASP!
Hey, jeg bruge denne kode i mit admin-script som tilføjer en anmeldelse til databasen:<%
ElseIf Mode = "step3" Then
SpilId = Request.Form("SpilId")
If SpilId = 0 Then
Response.Redirect "default.asp"
ElseIf (not conn.execute("Select * from games_anmeldelser where Ref = " & SpilId).eof) then
%>
<p align="center">
<font size="5" face="Verdana"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
Fejl, anmeldelsen blev ikke oprettet!<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</font>
</p>
<%
Else
Anmeldelse = Request.Form("Anmeldelse")
kGrafik = Request.Form("kGrafik")
kLyd = Request.Form("kLyd")
kGameplay = Request.Form("kGameplay")
kOverall = Request.Form("kOverall")
tGrafik = Request.Form("tGrafik")
tLyd = Request.Form("tLyd")
tGameplay = Request.Form("tGameplay")
tOverall = Request.Form("tOverall")
Anmeldelse = Replace(Anmeldelse, "'", "''")
Anmeldelse = Replace(Anmeldelse, Chr(34), "''")
datetime = year(date) & "-" & month(date) & "-" & day(date) & " " & time
sql = "Insert into games_anmeldelser (Anmeldelse, Grafik, Grafiktekst, Lyd, Lydtekst, Gameplay, Gameplaytekst, Overall, Overalltekst, Vis, Dato, Af, Ref) values ('" & Anmeldelse & "', " & kGrafik & ", '" & tGrafik & "', " & kLyd & ", '" & tLyd & "', " & kGameplay & ", '" & tGameplay & "', " & kOverall & ", '" & tOverall & "', 0, '" & datetime & "', " & Session("BrugerId") & ", " & SpilId & ")"
conn.execute( sql )
sql = "Select Id from games_anmeldelser where Ref = " & SpilId
set res = conn.execute( sql )
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.mangoo.dk"
Mail.From = "ncp@mangoo.dk"
Mail.FromName = "Mangoo AutoMailer"
Mail.AddAddress "ncp@mangoo.dk"
Mail.Subject = "Godkendelse af Spilanmeldelse"
Mail.Body = "<HTML><FONT FACE=""Verdana"" SIZE=""1""><b>Tillykke</b><br>Der er har skrevet en Spilanmeldelse på mangoo.dk - se den ved at klikke her: http://www.mangoo.dk/games/anmeldelse.asp?id=" & res("Id") & "<br><br>Godkend: http://ncp/local/godkend_anmeldelse.asp?id=" & res("Id") & "<br>Slet: http://ncp/local/slet_anmeldelse.asp?id=" & res("Id") & "<br><br>Mvh. Mangoo Auto Mail Service</font></html>"
Mail.Send
set Mail = nothing
set res = nothing
End If
End If
%>
MEN, SIDEN RETUNERE: Fejl, anmeldelsen blev ikke oprettet! - Og alligevel er recorden oprettet i MySQL'en, med alle data!
Hvad er der galt ???
HJÆLP!!!!!!!!
