Code Bank
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
 
User Name:
Password:
Remember me
Go Back   ASP Free ForumsProgrammingCode Bank

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread ASP Free Forums Sponsor:
  #1  
Old June 15th, 2004, 06:28 AM
Anarchy85 Anarchy85 is offline
Registered User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Jun 2004
Posts: 1 Anarchy85 User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
Microsoft VBScript compilation error '800a03f6'

I dont get it, every time i try to run my page i get this error and it doesn't make sense because i do end my if so whats my problem? heres the code: <% @language = "VBScript" %>
<% option explicit %>
<html>
<head>
<title>Send me a TxT MsG Bizotch!</title>
<link rel="stylesheet" type="text/css" href="email.css" />
<script src="txtcounter.js"></script>
</head>
<body>
<%
Dim from, talk, myMail
Set myMail=CreateObject("CDO.Message")
'myMail.Subject="Sending email with CDO"
myMail.From=Request.Form("From")
myMail.To="##########@vmobl.com"
myMail.TextBody=Request.Form("Talk")
%>
<% function send()
myMail.Send
%>
<form action="email.asp" method="post">
<table width="66%" cellpadding="0" cellspacing="0" border="1" bordercolor="#3300FF" bordercolorlight="#0000FF" bordercolordark="#000099">
<tr>
<td>
Name Plz:
</td>
<td>
<input type="text" name="from" maxlength="28" size="30" />
</td>
</tr>
<tr>
<td>
Talk to me:
</td>
<td>
<input type="text" name="talk" cols="25" rows="5" maxlength="125" style="width: 275px;" />
</td>
</tr>
<tr>
<td colspan="2">
<center>
<input type="submit" value="Send it on" onclick="send()" />
</center>
</td>
</tr>
</table>
</form>
<br /><hr /><br />
<% If Request.Form("from") <> "" Then
Response.Write "message sent, nice doin business w/ya "
Else
Response.Write "Please put in a name."
End if
If Request.Form("talk") <> "" Then
Response.Write ""
Else
Response.Write "Please put insert a message."
End if
%>
</body>
</html>

thanks in advance

Reply With Quote
  #2  
Old June 18th, 2004, 09:37 AM
Yeruhn's Avatar
Yeruhn Yeruhn is offline
Contributing User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Feb 2004
Location: Netherlands
Posts: 428 Yeruhn User rank is Sergeant (500 - 2000 Reputation Level)Yeruhn User rank is Sergeant (500 - 2000 Reputation Level)Yeruhn User rank is Sergeant (500 - 2000 Reputation Level)Yeruhn User rank is Sergeant (500 - 2000 Reputation Level)Yeruhn User rank is Sergeant (500 - 2000 Reputation Level) 
Time spent in forums: 2 Days 16 h 35 m 27 sec
Reputation Power: 10
There are several things wrong:
- you're trying to call a serverside function (send) through the client
- your function send() isn't ended with 'end function'

A possible solution is to request() if the submit button has been pressed and then you can email. Forget the send() function...

Reply With Quote
Reply

Viewing: ASP Free ForumsProgrammingCode Bank > Microsoft VBScript compilation error '800a03f6'


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2008 by Developer Shed. All rights reserved. DS Cluster 5 hosted by Hostway
Stay green...Green IT