503 Bad Sequence of Commands.
Jeg er ved at blive idiot over fejlen. Kan du gennemskue hvar det sker?<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/bst.asp" -->
<%
Dim rs_forhandler__MMColParam
rs_forhandler__MMColParam = "1"
If (Request.QueryString("producent_id") <> "") Then
rs_forhandler__MMColParam = Request.QueryString("producent_id")
End If
%>
<%
Dim rs_forhandler
Dim rs_forhandler_numRows
Set rs_forhandler = Server.CreateObject("ADODB.Recordset")
rs_forhandler.ActiveConnection = MM_bst_STRING
rs_forhandler.Source = "SELECT * FROM producent WHERE producent_id = " + Replace(rs_forhandler__MMColParam, "'", "''") + ""
rs_forhandler.CursorType = 0
rs_forhandler.CursorLocation = 2
rs_forhandler.LockType = 1
rs_forhandler.Open()
rs_forhandler_numRows = 0
%>
<html>
<head>
<title><%= Application("title") %></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
DIM r_navn, r_email
r_navn = "" &(rs_forhandler.Fields.Item("producent").Value)
r_email = ""& (rs_forhandler.Fields.Item("email").Value)
if r_navn = "" then r_navn = "intet navn"
if r_email = "" then r_email = "info@domain.dk"
response.Write(r_navn)
response.Write(r_email)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = Request.Form("navn")
Mailer.FromAddress = Request.Form("email")
Mailer.RemoteHost = "mail.KATALOG.dk"
Mailer.AddRecipient cstr(r_navn) , cstr(r_email)
Mailer.Subject = ".: mail via KATALOG :."
tekst = ""
'linie = vbCrLf
linie = "<br>"
udfyldt = false
tekst = "Denne mail er sendt via www.KATALOGet.dk" & linie & linie
if Request.Form("navn") <> "" then
tekst = tekst & "navn" & linie & Request.Form("navn") & linie & linie
udfyldt = true
end if
if Request.Form("email") <> "" then
tekst = tekst & "e-mail" & linie & Request.Form("email") & linie & linie
udfyldt = true
end if
if Request.Form("adresse") <> "" then
tekst = tekst & "adresse" & linie & Request.Form("adresse") & linie & linie
udfyldt = true
end if
if Request.Form("postnr") <> "" then
tekst = tekst & "postnr." & linie & Request.Form("postnr") & linie & linie
udfyldt = true
end if
if Request.Form("byen") <> "" then
tekst = tekst & "byen" & linie & Request.Form("byen") & linie & linie
udfyldt = true
end if
if Request.Form("besked") <> "" then
tekst = tekst & "besked" & linie & Request.Form("besked") & linie & linie
udfyldt = true
end if
Response.Write "følgende blev ikke sendt, da det er en DEMO: <BR>"& tekst
tekst = Replace(tekst, "<br>", vbCrLf)
tekst = Replace(tekst, "<BR>", vbCrLf)
tekst = Replace(tekst, "<b>", "")
tekst = Replace(tekst, "<B>", "" )
tekst = Replace(tekst, "</b>", "")
tekst = Replace(tekst, "</B>", "" )
Mailer.BodyText = tekst
'Mailer.SendMail
if udfyldt then
if Mailer.SendMail then
Response.Write "<p>Din besked er sendt til: </p>" & (rs_forhandler.Fields.Item("email").Value)&" - "&(rs_forhandler.Fields.Item("producent").Value)
else
Response.Write "<p>Din besked er <b>ikke</b> sendt</p>"
Response.Write "<p>Mail-error. Fejlen var: <b>" & Mailer.Response & "</b></p>"
end if
else
Response.Write "<p>Din besked blev <b>ikke</b> sendt</p>"
Response.Write "<p>felterne var ikke udfyldt!</p>"
end if
Response.Write "<title>MAIL VIA KATALOG</title>"
Response.Write "<p><a href=" & Request.ServerVariables("HTTP_REFERER") & ">tilbage</a></p>"
%>
<%
rs_forhandler.Close()
Set rs_forhandler = Nothing
%>
</font>
<br>
<a href="java script:parent.close()">luk vinduet</a>
