Forum Moderators: mack
I have a registration type page that when the user hits the Submit button should go to a response/confirmation page and the user's data/details are sent to an Access database.
The user is also sent an automatic email response. However the problem is that the user gets 'Page not displayed' when he hits the Submit button, but data is entered into the Access database okay and the user gets the automatic email response okay.
If I remove the ASP code in the confirmation/response page relating to the automatic email response using ASP and Server.CreateObject in Dreamweaver MX 2004 the user then gets through to the relevant page, but obviously not getting the Automatic email response.
I have tried moving the relevant ASP code with minimal success, but I believe it should reside in the Head section.
Frustratingly this is code that I have used before but this is a more complex website. Also the server I am using is quite slow.
I will be glad of any advice or helpful suggestions.
Steve
You should then be able to see a server-generated error message describing the error and the line number. It would appear that a scripting error is occurring after you've hit the db and sent the email.
Post the error (and *relevant* part of code) and someone will prob. be able to help.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<style type="text/css">
A:link {text-decoration: none} A:visited {text-decoration: none} A:active {text-decoration: none} A:hover {text-decoration: underline; color: red;} .intranet1 {
font-family: Verdana;
font-size: 12px;
font-weight: normal;
font-variant: normal;
text-transform: none;
color: #FFFFFF;
background-color: #0000FF;
}
</style>
<title>C2 Communications</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<link href="/whitelinks" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #0066B1}
.style2 {color: #0000FF}
-->
</style>
<%
Dim objMail
Dim blnSuccess
blnSuccess = False
' Create the E-Mail component
Set objMail = Server.CreateObject("Mailer.cMail")
' Set data into E-Mail component
objMail.From = "lindaj@c2comms.com"
objMail.SendTo = Request.Querystring("fr_email")
'objMail.SenderName = "C2 Communications"
'objMail.RecipientName = Request.Form("fr_name")
objMail.Subject = "Welcome to C2 Communications" & ""
objMail.Message = "From C2 Communications" & vbcrlf & "Linda Jones, C2Communications" & vbcrlf & "" & vbcrlf & "Thank you for submitting your fault report. C2 Communications will contact you about your fault shortly." & vbcrlf & "" & vbcrlf & "kind regards," & vbcrlf & "Linda Jones (C2 Communications)"
objMail.MailServer = "withheld.akhter.com"
objMail.Port = 25
objMail.SendMail
set objMail = Nothing
%>
</head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<style type="text/css">
A:link {text-decoration: none} A:visited {text-decoration: none} A:active {text-decoration: none} A:hover {text-decoration: underline; color: red;} .intranet1 {
font-family: Verdana;
font-size: 12px;
font-weight: normal;
font-variant: normal;
text-transform: none;
color: #FFFFFF;
background-color: #0000FF;
}
</style>
<title>C2 Communications</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<link href="/whitelinks" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #0066B1}
.style2 {color: #0000FF}
-->
</style>
<%
Dim objMail
Dim blnSuccess
blnSuccess = False
' Create the E-Mail component
Set objMail = Server.CreateObject("Mailer.cMail")
' Set data into E-Mail component
objMail.From = "lindaj@c2comms.com"
objMail.SendTo = Request.Querystring("fr_email")
'objMail.SenderName = "C2 Communications"
'objMail.RecipientName = Request.Form("fr_name")
objMail.Subject = "Welcome to C2 Communications" & ""
objMail.Message = "From C2 Communications" & vbcrlf & "Linda Jones, C2Communications" & vbcrlf & "" & vbcrlf & "Thank you for submitting your fault report. C2 Communications will contact you about your fault shortly." & vbcrlf & "" & vbcrlf & "kind regards," & vbcrlf & "Linda Jones (C2 Communications)"
objMail.MailServer = "withheld.akhter.com"
objMail.Port = 25
objMail.SendMail
set objMail = Nothing
%>
</head>
