Hvad er der galt med dette script ??
Jeg kalder nedenstående script fra opretsponsor_1.asp, som i bund og grund ganske enkelt opretter og gemmer en sponsor i min database - og den del virker, men jeg modtager en intern server fejl (HTTP - 500) :<% @language="VBScript"´%>
<%
Option Explicit
Response.Buffer = true
Response.Expires = 0
If not Session("Kontrol") = "Godkendt" Then
Response.Redirect("../index.asp?kode=forbudt")
End If
Dim strConn, objRS, strQ
strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../access/database.mdb")
Set objRS = Server.CreateObject("ADODB.RecordSet")
strQ = "SELECT * FROM Sponsor WHERE Sponsornummer = '" & Request.Querystring("sponsor_id") & "'"
objRS.Open strQ, strConn
Dim sponsorfirma, sponsorkontakt
Dim sponsoradresse, sponsorpostnummer, sponsorby
Dim sponsortelefon, sponsormail, sponsorweb
Dim sponsornummer, sponsorkode
sponsorfirma = objRS("Sponsornavn")
sponsorkontakt = objRS("Sponsorperson")
sponsoradresse = objRS("Sponsoradresse")
sponsorpostnummer = objRS("Sponsorpostnummer")
sponsorby = objRS("Sponsorby")
sponsortelefon = objRS("Sponsortelefon")
sponsormail = objRS("Sponsoremail")
sponsorweb = objRS("Sponsorweb")
sponsornummer = objRS("Sponsornummer")
sponsorkode = objRS("Sponsorkode")
objRS.Close
Set objRS = Nothing
Set strConn = Nothing
Dim Mailer, indhold
Dim x, strFullPath, objXML, node
Mailer.AddRecipient "sponsorkontakt", "rar@iceweb.dk"
Mailer.FromAddress = "sponsor@nfx2.dk"
Mailer.FromName = "Sponsorafdelingen"
Mailer.RemoteHost = "mail.nfx2.dk"
Mailer.Subject = "Net-Foreningen Nykøbing Falster - Sponsorafdelingen"
Mailer.ContentType = "text/html"
indhold = "<table align='center' border='0' cellspacing='0' cellpadding='0' height='*' width='350'>" & _
"<tr><td colspan='2' class='sort' width='350' height='70' align='left' valign='middle'><img src='http://www.nfx2.dk/gfx/logo.gif' width=158 height=70 border=0 alt=''></td></tr>" & _
"<tr><td colspan='2' class='sort' width='350' height='1' align='right' valign='middle' bgcolor='#808080'><img src='http://www.nfx2.dk/gfx/prik.gif' width=1 height=1 border=0></td></tr>" & _
"<tr><td colspan='2' class='sort' width='350' height='8' align='right' valign='middle'><img src='http://www.nfx2.dk/gfx/billede_0.gif' width=25 height=8 border=0 alt=''></td></tr>" & _
"<tr><td class='sort' width='325' height='17' align='left' valign='middle' bgcolor='#000000'>" & _
"<div style='color:#FFFFFF; font-family:Tahoma, Verdana, Arial; font-size:8pt; cursor:default;'>" & _
" <strong>Velkommen til Net-Foreningen Nykøbing Falster</strong>" & _
"</div>" & _
"</td><td class='sort' width='25' height='17' align='right' valign='middle' bgcolor='#000000'><img src='http://www.nfx2.dk/gfx/billede_1.gif' width=25 height=17 border=0 alt=''></td></tr>" & _
"<tr><td colspan='2' class='sort' width='350' height='2' align='right' valign='middle'><img src='http://www.nfx2.dk/gfx/billede_2.gif' width=25 height=2 border=0 alt=''></td></tr>" & _
"<tr><td colspan='2' class='sort' width='350' height='*' align='center' valign='top'>" & _
"<div style='color:#000000; font-family:Tahoma, Verdana, Arial; font-size:8pt; cursor:default;'>" & _
"Hvis du modtager denne e-mail fra Net-Foreningen Nykøbing Falster, så betyder det at du er blevet oprettet som sponsor.<br><br>" & _
"<table align='center' border='0' cellspacing='0' cellpadding='0' height='*' width='330' bgcolor='#EEEEEE'>" & _
"<tr><td colspan='3' class='sort' width='330' height='*' align='left' valign='top' bgcolor='#FFFFFF'>" & _
"<div style='color:#000000; font-family:Tahoma, Verdana, Arial; font-size:8pt; cursor:default;'>" & _
"Vi har registreret følgende oplysninger om dig :<br>" & _
"</div>" & _
"</td></tr>" & _
"<tr><td colspan='3' class='sort' width='330' height='2' align='left' valign='top'><img src='gfx/prik.gif' width=1 height=1 border=0 alt=''></td></tr>" & _
"<tr><td class='sort' width='10' height='*' align='left' valign='top'><img src='gfx/prik.gif' width=1 height=1 border=0 alt=''></td>" & _
"<td class='sort' width='170' height='*' align='left' valign='top'>" & _
"<div style='color:#000000; font-family:Tahoma, Verdana, Arial; font-size:8pt; cursor:default;'>" & _
"<strong>" & sponsorfirma & "</strong><br>" & sponsorkontakt & _
"</div>" & _
"</td><td class='sort' width='150' height='*' align='right' valign='top'>" & _
"<div style='color:#000000; font-family:Tahoma, Verdana, Arial; font-size:8pt; cursor:default;'>" & _
"<br>" & _
"</div>" & _
"</td></tr>" & _
"<tr><td colspan='3' class='sort' width='330' height='*' align='left' valign='top'><br></td></tr>" & _
"<tr><td class='sort' width='10' height='*' align='left' valign='top'><img src='gfx/prik.gif' width=1 height=1 border=0 alt=''></td>" & _
"<td class='sort' width='170' height='*' align='left' valign='top'>" & _
"<div style='color:#000000; font-family:Tahoma, Verdana, Arial; font-size:8pt; cursor:default;'>" & _
sponsoradresse & "<br>" & sponsorpostnummer & " " & sponsorby & _
"</div>" & _
"</td><td class='sort' width='150' height='*' align='right' valign='top'>" & _
"<div style='color:#000000; font-family:Tahoma, Verdana, Arial; font-size:8pt; cursor:default;'>" & _
"Telefon : " & sponsortelefon & "<br>Email : " & sponsormail & _
"</div>" & _
"</td></tr>" & _
"<tr><td colspan='3' class='sort' width='330' height='2' align='left' valign='top'><img src='gfx/prik.gif' width=1 height=1 border=0 alt=''></td></tr>" & _
"</table>" & _
"</div>" & _
"</td></tr></table>"
Mailer.BodyText = indhold
If Mailer.SendMail Then
Response.Redirect("../sponsorinfo.asp?sponsor_id=" & Request.Querystring("sponsor_id") & "&code_id=new")
Else
Response.Redirect("../sponsorinfo.asp?sponsor_id=" & Request.Querystring("sponsor_id") & "&code_id=error")
End If
%>
Er der nogen af jer der ude der kan finde hoved eller hale i det og fortælle mig hvad jeg gør galt.
Best regards
Rar Jacobsen
