BusinessDesign
Programmer
Hi,
I am new to the list and new to ASP. I have listed my code below. The problem is that the Bid ID value does not appear in the email.
I know that the Request.QueryString("BidID" works because the Response.Redirect at the bottom of the code works.
I would appreciate any help.
<%
Dim bidid, name, company
bidid = Request.QueryString("BidID"
name = Request.Form("Name"
company = Request.Form("Company"
Set Mail = Server.CreateObject("Persits.MailSender"
Mail.Host = "mymailserver" ' Specify a valid SMTP server
Mail.From = "online@mysite.org" ' Specify sender's address
Mail.FromName = "My Website" ' Specify sender's name
Mail.AddAddress "purchasing@mysite.org"
Mail.Subject = "Bid Packet Download"
Mail.Body = "Bid ID: " & BidID & "" & Chr(13) & Chr(10) & _
"Name: " & Name & "" & Chr(13) & Chr(10) & _
"Company: " & Company & "" & Chr(13) & Chr(10)
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
<%Response.redirect "/main/mgmt_serv/purchasing/bid_pkts/" & Request.QueryString("BidID" & ".htm" %>
Thank you in advance,
Michelle
I am new to the list and new to ASP. I have listed my code below. The problem is that the Bid ID value does not appear in the email.
I know that the Request.QueryString("BidID" works because the Response.Redirect at the bottom of the code works.
I would appreciate any help.
<%
Dim bidid, name, company
bidid = Request.QueryString("BidID"
name = Request.Form("Name"
company = Request.Form("Company"
Set Mail = Server.CreateObject("Persits.MailSender"
Mail.Host = "mymailserver" ' Specify a valid SMTP server
Mail.From = "online@mysite.org" ' Specify sender's address
Mail.FromName = "My Website" ' Specify sender's name
Mail.AddAddress "purchasing@mysite.org"
Mail.Subject = "Bid Packet Download"
Mail.Body = "Bid ID: " & BidID & "" & Chr(13) & Chr(10) & _
"Name: " & Name & "" & Chr(13) & Chr(10) & _
"Company: " & Company & "" & Chr(13) & Chr(10)
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
<%Response.redirect "/main/mgmt_serv/purchasing/bid_pkts/" & Request.QueryString("BidID" & ".htm" %>
Thank you in advance,
Michelle