HVAD MED DEN HER: kan du c nogle fejl i den?? ser det rigtigt ud??
<% @LANGUAGE = VBScript %>
<%
Dim strName, strCompany, strPosition, strEmail, strMessage, strTelefon, strRingop
strName = Trim(Request.QueryString("name"))
strCompany = Trim(Request.queryString("company"))
strPosition = Trim(Request.queryString("position"))
strEmail = Trim(Request.queryString("email"))
strSubject = "Fra HeliWeb Mailform"
strMessage = Trim(Request.QueryString("message"))
strTelefon = Trim(Request.QueryString("telefon"))
strRingop = Trim(Request.queryString("ringop"))
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
indhold = "Du deltager nu i konkurrencen om 2 billetter til Paris :)" +vbcrlf +vbcrlf +"Navn = " & strName & vbcrlf & "Virksomhed = " & strCompany & vbcrlf & "Position = " & strPosition & vbcrlf & "Telefon = " & strTelefon & vbcrlf & "Ringes op ? = " & strRingop & vbcrlf & vbcrlf & strMessage
MailBody = "<html>"
MailBody = MailBody + "<head><title>HeliWeb</title>"
MailBody = MailBody + "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">"
MailBody = MailBody + "</head>"
MailBody = MailBody + "<body bgcolor="#F7EEDE" leftmargin="0" marginheight="0" marginwidth="0" topmargin="0">"
MailBody = MailBody + "<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">"
MailBody = MailBody + "<tr>"
MailBody = MailBody + "<td>"
MailBody = MailBody + "<table width="400" cellpadding="6" cellspacing="1" align="center" bgcolor="#000000" height="10" vspace="12" hspace="12">"
Mailbody = MailBody + "<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF" height="300">"
Mailbody = MailBody + "<td width="398" height="300" nowrap background="
http://www.helikopter.tv/heliweb/gfx/mail_bg.jpg">" Mailbody = MailBody + "<div align="center">"
Mailbody = MailBody + "<div align="center"></div>"
Mailbody = MailBody + "</div>"
Mailbody = MailBody + "</td>"
Mailbody = MailBody + "</tr>"
Mailbody = MailBody + "</table>"
Mailbody = MailBody + "</td>"
Mailbody = MailBody + "</tr>"
Mailbody = MailBody + "</table>"
Mailbody = MailBody + "</body>"
Mailbody = MailBody + "</html>"
objMail.From = strEmail 'Afsender fra mailform
objMail.To = "rk@helikopter.tv" 'Modtager af mail fra mailform
objMail.BCC = strEmail 'her får afsenderen en kopi
objMail.Subject = strSubject
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = MailBody
objMail.Send
set objMail = Nothing
%>
<body onLoad=window.close()>
<!--
www.helikopter.tv.dk -->
</body>