File: D:/HostingSpaces/TWijnstra/wijnstra.com/tjerk.com/portfolio/onedev/contact.asp
<%@ Language=VBScript %>
<%
If Request("sendingthemail") = 1 Then
'*** Post values to the form
ResponseText = Request("ResponseText")
CompanyName = Request("CompanyName")
Department = Request("Department")
WorkFunction = Request("WorkFunction")
FirstName = Request("FirstName")
LastName = Request("LastName")
Address = Request("Address")
Zipcode = Request("Zipcode")
City = Request("City")
Phone = Request("Phone")
EmailAddress = Request("EmailAddress")
'*** Build message body
If not ResponseText = "" Then
BodyString = BodyString & " Tijdstip = " & Date() & " " & Time() & VbCrLf
BodyString = BodyString & " Bedrijfsnaam = " & CompanyName & VbCrLf
BodyString = BodyString & " Afdeling = " & Department & VbCrLf
BodyString = BodyString & " Functie = " & WorkFunction & VbCrLf
BodyString = BodyString & " Voornaam = " & FirstName & VbCrLf
BodyString = BodyString & " Achternaam = " & LastName & VbCrLf
BodyString = BodyString & " Adres = " & Address & VbCrLf
BodyString = BodyString & " Postcode = " & Zipcode & VbCrLf
BodyString = BodyString & " Plaats = " & City & VbCrLf
BodyString = BodyString & " Telefoon = " & Phone & VbCrLf
BodyString = BodyString & " Email = " & EmailAddress & VbCrLf
BodyString = BodyString & " Opmerking = " & ResponseText & VbCrLf
End If
'***Begin Send mail to OneDev***
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = EmailAddress
myMail.To = "tjerk@wijnstra.com"
myMail.Subject = "Info aanvraag website www.OneDev.nl"
myMail.Body = BodyString
myMail.Send
Set myMail = Nothing
'***End Send mail to OneDev***
'***Begin Send mail to customer***
Set Mail = Server.CreateObject("CDONTS.Newmail")
Mail.From = "info@onedev.nl"
Mail.To = EmailAddress
Mail.Subject = "Ontvangstbevestiging informatieaanvraag op www.OneDev.nl"
Mail.Body = "Geachte heer/mevrouw " & LastName & "," & VbCrLf & VbCrLf & _
"Uw aanvraag is goed bij ons aangekomen en" & VbCrLf & _
"wordt zo snel mogelijk in behandeling genomen." & VbCrLf & VbCrLf & _
"Met vriendelijke groet," & VbCrLf & _
" OneDev" &VbCrLf & _
" your number One in Development"
Mail.Send
Set Mail = Nothing
'***End Send mail to customer***
End If %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>OneDev || your number One in Development</title>
<meta name=vs_defaultClientScript content="JavaScript">
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie3-2nav3-0">
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name=ProgId content=VisualStudio.HTML>
<meta name=Originator content="Microsoft Visual Studio.NET 7.0">
<LINK rel="stylesheet" type="text/css" href="css/onedev.css">
<script language="javascript">
function pop_window(url) {
//remove a attribute if you don't want it to show up
var popit = window.open(url,'console','scrollbars,resizable,width=640,height=400');
}
</script>
</head>
<body marginwidth="0" marginheight="0" background="images/background.gif">
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td valign=top><OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="505" HEIGHT="540" id="contact" align="" >
<PARAM NAME="movie" VALUE="swf/contact.swf"><PARAM NAME="quality" VALUE="high"><PARAM NAME="bgcolor" VALUE="#6D6D6D"><param name="menu" value="false">
<EMBED src="swf/contact.swf" quality="high" bgcolor="#6D6D6D" WIDTH="505" HEIGHT="540" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED></OBJECT></td>
<td valign=top><table border=0 cellpadding=0 cellspacing=0 width=100% class="clsTblContent">
<tr>
<td class="clsTDcontent"><IMG SRC="images/MenuBottom.gif" width="337" height="18"><br>
<div align=right><IMG SRC="images/krookie.gif"><IMG SRC="images/Trans1px.gif" width=36 height=1></div>
<IMG SRC="images/TtlContact.gif"><br>
<div style="width:337px; height:400px; overflow-y:scroll; padding-top:16px; padding-right:2px; padding-bottom:4px; padding-left:6px;">
<p><b>OneDev B.V.</b><br>
<IMG SRC="images/Leeuwenbrink.jpg" align=right alt="ICT Centrum Leeuwenbrink" class="clsImage">Bleiswijkseweg 37e<br>
2712 PB Zoetermeer.<br>
Telefoon<br>
+31 (0)79 343 57 10<br>
Fax<br>
+31 (0)79 343 57 12<br>
<a href="javascript:pop_window('popup.asp?what=route')">Routebeschrijving</a></p>
<p>Voor een aanvraag vult u onderstaande velden zo volledig mogelijk in en klikt u op de knop verzenden:</p>
<form action="contact.asp" method="POST" ID="Form2">
<input type="hidden" name="sendingthemail" value="1" ID="Hidden">
<table ID="Table1" border=0 cellpadding=2 cellspacing=0>
<tr valign=top>
<td>Vraag</td>
<td><TEXTAREA name="ResponseText" rows=4 cols=15 ID="ResponseText"></TEXTAREA></td></tr>
<tr valign=top>
<td>Bedrijfsnaam</td>
<td><INPUT size=20 name="CompanyName" ID="CompanyName"></td></tr>
<tr valign=top>
<td>Functie</td>
<td><INPUT size=20 name="WorkFunction" ID="WorkFunction"></td></tr>
<tr valign=top>
<td>Afdeling of locatiecode</td>
<td><INPUT size=20 name="Department" ID="Department"></td></tr>
<tr valign=top>
<td>Voornaam</td>
<td><INPUT size=20 name="FirstName" ID="FirstName"></td></tr>
<tr valign=top>
<td>Achternaam</td>
<td><INPUT size=20 name="LastName" ID="LastName"></td></tr>
<tr valign=top>
<td>Straat en nummer</td>
<td><INPUT size=20 name="Address" ID="Address"></td></tr>
<tr valign=top>
<td>Postcode</td>
<td><INPUT size=20 name="Zipcode" ID="Zipcode"></td></tr>
<tr valign=top>
<td>Plaats</td>
<td><INPUT size=20 name="City" ID="City"></td></tr>
<tr valign=top>
<td>Telefoonnr.</td>
<td><INPUT size=20 name="Phone" ID="Phone"></td></tr>
<tr valign=top>
<td>E-mail</td>
<td><INPUT size=20 name="EmailAddress" ID="EmailAddress"></td></tr>
<tr>
<td colSpan=2 align=center><IMG SRC="images/btn/btnSend.gif"> <IMG SRC="images/btn/btnReset.gif">
<input id="Submit1" type="submit" name="send" value="Verstuur"></td>
</tr>
</table></form></div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>