ho sempre usato questo modulo contatti ma ora mi dà un'errore e non capisco come mai
questo è l'errore visualizzato
Microsoft VBScript runtime error '800a0046'
Permission denied
/contact/output.asp, line 57
questo è input form
<form method="post" name="frmEnquiry" action="output.asp" onSubmit="return CheckForm();">
<div align="center">
<input type="hidden" name="sendto" value="xxxxxxxxxxxxxxx">
<input type="hidden" name="sendtocc" value="">
</p>
[img]../images/theglasser.gif[/img] </p>
</div>
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td colspan="2" width="448"> <font size="2">*Indicates required fields
</font>
</tr>
<tr>
<td width="289">First Name*
<input maxlength="30" name="firstName">
</td>
<td width="157">Last Name*
<input maxlength="30" name="lastName">
</td>
</tr>
<tr>
<td width="291">Address
<input name="indirizzo" type="text" id="indirizzo"> </td>
<td width="159"></td>
</tr>
<tr>
</tr>
<tr>
<td width="289">Phone Number <font size="1">(INCLUDE AREA CODE)</font>
<input maxlength="30" name="tel">
</td>
<td width="157">E-mail Address*
<input maxlength="255" name="email">
</td>
</tr>
<td colspan="2" height="170" width="448"><div align="center">Enquiry*
<textarea name="Enquiry" cols="50" rows="5" id="richiesta"></textarea>
</div></td>
<tr align="center">
<td colspan="2" height="36" width="448"><div align="center"></div></td>
</tr>
<tr align="center">
<td colspan="2" height="36" width="448">
<input type="submit" name="Submit3" value="Submit Enquiry">
<input type="reset" name="Reset" value="Clear Form">
</td>
</tr>
</table>
</form>
e questo è l'otput form
<%
Response.Buffer = True
Dim strBody
Dim objCDOMail
Dim strMyEmailAddress
Dim strCCEmailAddress
Dim strBCCEmailAddress
Dim strReturnEmailAddress
strMyEmailAddress = "xxxxxxxxxx"
strCCEmailAddress = "xxxxxxxxxx"
strBCCEmailAddress = ""
strReturnEmailAddress = Request.Form("email")
strBody = "<h2>E-mail sent from form on Web Site</h2>"
strBody = strBody & "
Name: " & Request.Form("firstName") & " " & Request.Form("lastName")
strBody = strBody & "
Address: -"
If (Request.Form("street1")) > "" Then
strBody = strBody & "
" & Request.Form("street1")
End If
If (Request.Form("street2")) > "" Then
strBody = strBody & "
" & Request.Form("street2")
End If
If (Request.Form("town")) > "" Then
strBody = strBody & "
" & Request.Form("town")
End If
If (Request.Form("county")) > "" Then
strBody = strBody & "
" & Request.Form("county")
End If
If (Request.Form("country")) > "--- Choose One ---" Then
strBody = strBody & "
" & Request.Form("country")
End IF
If (Request.Form("postCode")) > "" Then
strBody = strBody & "
" & Request.Form("postCode")
End If
strBody = strBody & "
Telephone: " & Request.Form("tel")
strBody = strBody & "
E-mail: " & strReturnEmailAddress
strBody = strBody & "
Enquiry: -
" & Replace(Request.Form("enquiry"), vbCrLf, "
")
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
strReturnEmailAddress = strMyEmailAddress
End If
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">"
objCDOMail.To = strMyEmailAddress
objCDOMail.Cc = strCCEmailAddress
objCDOMail.Bcc = strBCCEmailAddress
objCDOMail.Subject = "Contact from website"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 2
objCDOMail.Send
Set objCDOMail = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html>
<head>
<title>Win - Hosting :: Windows 2000 Hosting</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="description" content="a1 Win-Hosting is a leading Windows 2000 hosting provider. The latest scripting technology ( ASP Perl WAP WML XML. Unlimited Bandwidth, Unlimited space, Domain registration, Control Panel, Frontpage 2000, etc.">
<meta name="keywords" content="WINDOWS 2000 HOSTING,WINDOWS 2000 WEB HOSTING,WINDOWS 2000 WEBHOSTING,W2K HOSTING,UNLIMITED BANDWIDTH,UNLIMITED SPACE,UNLIMITED TRANSFER,LOW COST WINDOWS 2000 HOSTING,ASP HOSTING,WINDOWS 2000 HOSTING,WINDOWS 2000 WEBHOSTING,ASP COMPONENTS,UNLIMITED EMAIL ACCOUNTS,JMAIL HOSTING,ASPUPLOAD HOSTING,LOW COST HOSTING,DOMAIN REGISTRATION,UNLIMITED DOMAIN ALIAS">
<style>
.forms {COLOR:#003366; FONT-WEIGHT: bold; FONT-FAMILY: Verdana, Helvetica, Arial; FONT-SIZE:12px;}
.text {FONT-FAMILY: Verdana, Helvetica, Arial; FONT-SIZE:12px
BODY {font-family:verdana,arial,helvetica;font-size:10pt;}
TABLE {font-family:verdana,arial,helvetica;font-size:10pt;}
A {color:#336699;font-size:10pt;font-family:verdana,arial,helvetica;}
A:Active {color:#d00000;}
A:hover {color:#d00000;}
TD.nav1 {color:#000000 ;font-size:8pt;font-family:verdana,arial,helvetica;font-weight:bold;}
TD.nav1 A {color:#ffffff ;font-size:8pt;font-family:verdana,arial,helvetica;font-weight:bold;}
TD.nav1 A:Active {color:#99cc33;}
TD.nav1 A:hover {color:#99cc33;}
TD.nav2 {color:#f7f7f7;font-size:10pt;font-family:verdana,arial,helvetica;}
TD.nav2 A {color:#ffffff;font-size:10pt;font-family:verdana,arial,helvetica;font-weight:bold;text-decoration:none;}
TD.nav2 A:Active {color:#ff9900;}
TD.nav2 A:hover {color:#99ccff;}
TD.nav3 {color:#f7f7f7;font-size:10pt;font-family:verdana,arial,helvetica;}
TD.nav3 A {color:#ffffff;font-size:10pt;font-family:verdana,arial,helvetica;font-weight:bold;text-decoration:none;}
TD.nav3 A:Active (color:#000000;}
TD.nav3 A:Hover (color:#99ccff;}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#FFFFFF" >
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
Thank-you
<% = Request.Form("firstName") %>
<% = Request.Form("lastName") %>
for filling in the form.
</p>
We will reply soon</p>
back</p>
</td>
</tr>
</table>
</body>
</html>
Rispondi quotando
