This is the code that I have so far. I want the record or records selected
to be sent via email:
objRS.Open strsql, myconn
'
Do While Not objRS.EOF
Response.Write "<input type='checkbox' name='SendMsg'>"
Response.Write (" ")
Response.Write objRS("CompanyName")
Response.Write (", ")
Response.Write objRS("ContactName")
Response.Write ("<br>")
Response.Write objRS("ContactAddress")
Response.Write ("<br>")
Response.Write objRS("ContactCity")
Response.Write (", ")
Response.Write objRS("ContactState")
Response.Write (" ")
Response.Write objRS("ContactZip")
Response.Write ("<br>")
Response.Write objRS("ContactPhone")
Response.Write ("<br>")
Response.Write objRS("ContactEmail")
Response.Write ("<br>")
Response.Write objRS("ContactURL")
Response.Write ("<p>")
'
'
myname = objRS("ContactName")
mycompany = objRS("CompanyName")
myaddress = objRS("ContactAddress")
mycity = objRS("ContactCity")
mystate = objRS("ContactState")
myzip = objRS("ContactZip")
myphone = objRS("ContactPhone")
myemail = objRS("ContactEmail")
myURL = objRS("ContactURL")
'
'If (SendMsg) = "Checked" then
'Response.Write("It's being sent")
'End If
'///////////////////////////////////////////////////////////////////////
/////////
'///// This creates the email message that will be sent to the
requester:
'///////////////////////////////////////////////////////////////////////
/////////
' strBody = strBody & "VAR Contact Name: " & vbTab & myname &
vbTab & vbCrLf & vbCrLf
' strBody = strBody & "Company Name: " &vbTab & mycompany & vbTab
& vbCrLf &vbCrLf
' strBody = strBody & "Address: " &vbTab & myaddress & vbTab &
vbCrLf & vbCrLf
' strBody = strBody & "City: " &vbTab & mycity & vbCrLf & vbCrLf
' strBody = strBody & "State: " &vbTab & mystate & vbCrLf &
vbCrLf
' strBody = strBody & "Zip Code: " &vbTab & myzip & vbCrLf &
vbCrLf
' strBody = strBody & "Phone Number: " &vbTab & myphone &vbCrLf &
vbCrLf
' strBody = strBody & "Email Address: " &vbTab & myemail & vbCrLf
& vbCrLf
' strBody = strBody & "Website: " &vbTab & myurl & vbCrLf & vbCrLf
' strBody = strBody & strstars &vbTab & vbCrLf & vbCrLf
'
objRS.MoveNext
Loop
'
objRS.close
'