how to grab items from result set and email them?

Guest_imported · Aug 5, 2002

I hope you folks can help. I've always found great assistance on this board.
I have a table in SQL Server, and I used the Database Results Wizard to format a section on an ASP.
I'd like to allow my users to select one or more items (not necessarily consecutive) from the list, click a button and email the selected items to a fixed email address.
It seems a bit like a shopping cart concept, but I am fairly new to ASP - and I just don't know the answer.
I do not have a 'check box' in the SQL Server table, and would hesitate to do that because I can have multiple users hitting the same rows.
Thanks in advance for any and all assistance...

Ankor · Aug 6, 2002

You can try to create check boxes on the web page where you display your list. When the check box is selected you add the appropriate row to the string that should be sent. You don't even have to reconnect to the database in order to send these items.

Ankor · Aug 6, 2002

You should have something similar to this in the code:
<%@ Language=VBScript %>
<%
Dim strSend 'Message to be sent
Dim n
Dim Mail
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>Sample - send the selected items via e-mail</title>
</HEAD>
<BODY>
<form name="send" action="sendparticularitems.asp?action=send" method="post">
<table border="0" width="100%">
<tr>
<td><INPUT type="checkbox" id=ch_1 name=ch_1 value="1"></td>
<td><INPUT type="text" id=txt_1 name=txt_1 value="Item 1"></td>
</tr>
<tr>
<td><INPUT type="checkbox" id=ch_2 name=ch_2 value="1"></td>
<td><INPUT type="text" id=txt_2 name=txt_2 value="Item 2"></td>
</tr>
<tr>
<td><INPUT type="checkbox" id=ch_3 name=ch_3 value="1"></td>
<td><INPUT type="text" id=txt_3 name=txt_3 value="Item 3"></td>
</tr>
</table>
<input type="submit" value="Send Items" id="submit" name="submit">
<input type="reset" value="Reset" id="reset" name="reset">
</form>
<%
If Request.QueryString("action&quot="send" Then
strSend=""
For n = 1 to 3
If Request.Form("ch_" & n) = "1" Then
strSend = strSend & " " & Request.Form("txt_" & n)
End If
Next
End If

If strSend<>"" Then
Set Mail = Server.CreateObject("CDONTS.NewMail&quot
Mail.To = "mail1@mail.com"
Mail.From = "mail2@mail.com"
Mail.Subject = "Order"
Mail.Body = "Order: " & strSend
Mail.Send
Set Mail=Nothing
End If
%>
</BODY>
</HTML>

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!

how to grab items from result set and email them?

Guest_imported

New member

Ankor

Programmer

Ankor

Programmer

Similar threads

Part and Inventory Search

Sponsor