![]() |
|||||||||||||||
|
<%
Dim strNaam
Dim strAdres
Dim strPostcode
Dim strPlaats
Dim strLand
Dim strComment
Dim strEmail
Dim strSubject
Dim strError
Const dq = """"
Dim item
Dim strTekst
Dim strOrganisatie
Dim strTelefoon
Dim strRedstar
strRedstar = "" & Chr(42) & ""
For each item in Request.Form()
strTekst = strTekst & ""
Next
' response.write strTekst
' response.end
strNaam = Trim(Request.Form("txtNaam"))
strAdres = Trim(Request.Form("txtAdres"))
strPostcode = Trim(Request.Form("txtPostcode"))
strPlaats = Trim(Request.Form("txtPlaats"))
strLand = Trim(Request.Form("txtLand"))
strComment = Request.Form("txtComment")
strEmail = Trim(Request.Form("txtEmail"))
strOrganisatie = Trim(Request.Form("txtOrganisatie"))
strTelefoon = Trim(Request.Form("txtTelefoon"))
%>
|
||||||||||||||
Graauwedijk 36 - 9625 PC Overschild - Tel. 0596-566448 |
|||||||||||||||