<!--#include file="UnQuote.inc"-->
<!--#include file="Connect.asp"-->
<!--#include file="killNonNum.asp" -->
<%
If IsNumeric(Request("FormID")) then
set rs = Conn.Execute("SELECT * FROM tblForm WHERE FormID = " & killNonNum(Request("FormID"),0) & "")
set rsField = Conn.Execute("SELECT * FROM tblFormField WHERE FormID = " & killNonNum(Request("FormID"),0) & "")
else
response.Redirct "Default.asp"
end if
if not IsEmpty(Request.Form("Submit")) then
' Mail bliver sendt
Set mailer = Server.CreateObject("SoftArtisans.SMTPMail")
rem ------------------------------------
rem - Get version number
rem ------------------------------------
strVer = Mailer.Version
mailer.RemoteHost = "smtp.mvb.net"
mailer.FromAddress = "no-reply@e-advice.dk"
mailer.AddRecipient "" , rs("MailAdress")
mailer.Subject = "Request from Web form"
'Løber alle formfelter i gennem
For Each x in Request.Form
Content = Content & x & vbCrLf & Request.Form(x)& vbCrLf & vbCrLf
Next
mailer.BodyText = Content
rem ----------------------------------------------------
rem -- Sends the message and verify if it has been sent.
rem -----------------------------------------------------
strErr = ""
If mailer.SendMail then
strErr = NewLine(rs("ConfirmText"))
Else
strErr = "Mail failure." & mailer.response
End If
set mailer = nothing
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="style.asp">
<SCRIPT LANGUAGE= JAVASCRIPT>
function NewWindow(id) {
Slidesshow = window.open(id, 'Slidesshow', 'width=350, height=500')
}
</SCRIPT>
</head>
<body topmargin="0" leftmargin="0">
<!-- #include file="head.asp" -->
<br />
<div id="Ramme">
<table border="0" width="100%" cellspacing="0" cellpadding="0" style="border-bottom-style: solid">
<tr>
<td class='side' width="120">
<p>
</td>
<td><br>
<br>
<div align="center">
<table border="0" width="500" cellspacing="1" cellpadding="10" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#DDDDDD">
<%
if isempty(Request("Submit")) then
If Session("YouAreIn") = TRUE THEN
Response.Write "<a href='Editors/EditForm.asp?FormID=" & rs("FormID") & "'>Edit form</a>"
end if
Response.Write rs("IntroText")
Response.Write "<div align='center'>"
Response.Write "<table border='0' width='350' cellspacing='0' cellpadding='0'><tr>"
Response.Write "<form method='POST' action='FormPage.asp'>"
Do until rsField.EOF
if rsField("FieldType") = "Text" then
Response.Write "<p>" & rsField("FieldLabel") & ":<br><input type='text' size='60' name='" & rsField("FieldName") & "'></p>"
else
Response.Write "<p>" & rsField("FieldLabel") & ":<br><textarea rows='4' cols='45' name='" & rsField("FieldName") & "'></textarea></p>"
end if
rsField.MoveNext
loop
Response.Write "<p align='center'><input type='submit' value='Send' name='Submit'></p>"
Response.Write "<input type='hidden' name='FormID' value='" & killNonNum(request("FormID"),0) &"'>"
Response.Write "</form>"
Response.Write "<td width='100%'></td></tr></table>"
Response.Write "</div>"
else
Response.Write "<h2>" & strErr & "</h2>"
end if
%>
</td>
</tr>
</table><p> </p>
</div>
</td>
</tr>
</table>
<!-- #include file="bund.asp" -->
</div>
</body>
</html>
Do more with
Premium Content
You need an Expert Office subscription to comment.Start Free Trial