Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Submit button and text

Status
Not open for further replies.

sle2002

Technical User
Jul 16, 2001
79
US
Hi.

I am re-using an RSVP that a former co-worker had set up for a Holiday Invite for our dept. I have figured out everything except for the submit button. The submit button works, but there is code in there telling it to say thank you for submitting your info. This does not work. After the person enters their info and presses submit, it just goes to a blank screen.
I have not changed the code at all from when my former co-worker used it.

Any suggestions?

Here is the code starting with the submit button
<tr>
<td width=&quot;100%&quot; colspan=&quot;3&quot;>&nbsp;<font size=&quot;1&quot;>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</font><input type=&quot;submit&quot; value=&quot;Submit RSVP&quot;></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<!--<input type=&quot;reset&quot; value=&quot;Reset&quot; name=&quot;B2&quot;>-->

</form></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</td>
</tr>
</table>
</td>
</tr>
</table>

</div>

<p><br>
<br>
&nbsp; </p>

<p>&nbsp;&nbsp;</p>
<p>&nbsp;</p>

</body>

</html>




<%
Else
' Create an instance of the NewMail object.
Set objCDOMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;)

' Set the properties of the object

' This syntax works fine
'objCDOMail.From = &quot;susie.erickson@bestbuy.com&quot;
' But this gets you the appearance of a real name!
objCDOMail.From = &quot;Communications Holiday Party 2002<name@company.com>&quot;
objCDOMail.To = &quot;name@company.com&quot;
objCDOMail.Bcc = &quot;name@company.com&quot;

objCDOMail.Subject = strFirstName
objCDOMail.Body = strBody

objCDOMail.Send

Set objCDOMail = Nothing

%>


<%


'Response.Write &quot; &quot;
'Response.Write &quot;Thank you! Your information has been submitted and received. &quot;
'Response.Write &quot;If more people need to register please click the back button on your browser.&quot;
'Response.Write &quot;&quot;
End If
%>
 
Hi there,

You say you haven't touched the code at all. Could your problem be as simple as the Response.Write's are all commented out? Try removing the single quote marks.

Alternatively you can use Response.Redirect &quot;thank_you.asp&quot; and go to an entirely new page to say thanks, which is nicer and keeps your pages a little more consistent.

See how you get on with this first of all :)

Regards,
Craigieboy
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top