<form action="test.aspx" name="PF" onsubmit="javascript:return Valid2();" style="margin-left: auto; margin-right: auto;"> <div style="text-align: center;"> <select name="ID" size="12" style="margin-left: auto; margin-right: auto;"> <% Dim objConn As New SqlConnection(Application("CS")) Dim objCmd As New SqlCommand("SELECT DISTINCT V.ID, V.Vendor FROM Vendors V INNER JOIN ServiceEntries E ON E.VID = V.ID WHERE (V.Active = 1) AND (E.Site = '" & strSite & "') ORDER BY V.Vendor", objConn) objConn.Open() Dim objR As SQLDataReader=objCmd.ExecuteReader() While objR.Read() Response.Write("<option value=""" & objR(0).ToString() & """>" & objR(1).ToString() & "</option>") End While objR.Close() : objCmd.Dispose() : objConn.Close() : objConn.Dispose() %> </select><br /> <input type="submit" value="Send Login Info" /></div> </form>
<% Dim strSQL = "Insert into Vendorpasswordrecovery(Vendor, IP) Values ('" & Request.Form("selectedIndex") & "', '" & Request.ServerVariables("REMOTE_ADDR") & "')" Dim objConn As New SqlConnection(Application("CS")) Dim objCmd As New SqlCommand(strSQL, objConn) response.write(strSQL) objConn.Open() %>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)