<% strUserName = session("UserName") strAccessLevel = session("AccessLevel") strAction = request("cmdAction") strYourName = request("txtYourName") strYourEmail = request("txtYourEmail") strFriendsName = request("txtFriendsName") strFriendsEmail = request("txtFriendsEmail") strComments = request("txtComments") 'displays message if coming from another script page. Msg = request("Message") strId = request("Id") ' Create a recordset object to store specific table information Set objRS = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblLogin where LoginId =" & strId 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 if Request.Form <> "" and strAction <> "" then if strYourName = "" or strYourEmail = "" or strFriendsName = "" or strFriendsEmail = "" then msg = "Fields marked with an * are required." end if 'Checks for a valid email address if strYourEmail <> "" and (instr( strYourEmail, "@") = 0 or instr( strYourEmail, ".") = 0) then Msg = Msg + "
Your Email Address must be in the form account@server.com." end if if strFriendsEmail <> "" and (instr( strFriendsEmail, "@") = 0 or instr( strFriendsEmail, ".") = 0) then Msg = Msg + "
Friend's Email Address must be in the form account@server.com." end if if msg = "" then strSubject = strVarWebsite & " Show Listing sent from " & strYourName strBody = strBody + "Hi " & strFriendsName & "," & vbcrlf & vbcrlf strBody = strBody + strYourName & " thought you may be interested in the show listing link below:" & vbcrlf strBody = strBody + strVarWebsite + "/detail.asp?ID=" & lid & vbcrlf strBody = strBody + "Additional Comments: " & strComments & vbcrlf &vbcrlf strBody = strBody + "You can contact your friend directly about the listing at " & strYourEmail & vbcrlf & vbcrlf strBody = strBody + "Thank you for your interest in " & strVarWebsite Set objNewMail = Server.CreateObject("CDONTS.NewMail") objNewMail.From = strVarEmail objNewMail.To = strFriendsEmail 'objNewMail.cc = strVarEmail objNewMail.Subject = strSubject objNewMail.BodyFormat = 1 'objNewMail.MailFormat = 1 objNewMail.Body = strBody objNewMail.Send() Msg = strFriendsName & " has been sent your email regarding this listing." end if end if %>

<% if msg <> "" then %> <% end if %>

BAND DETAILS
<%= msg %>
<%If Len(objRS("Picture1")) > 0 Then If UCase(Left(objRS("Picture1"),7))="HTTP://" Then%> " border="0" width="300" height="225" name="bigimage"> <%Else%> " border="0" width="300" height="225" name="bigimage"> <%End If Else%> <%End If%>		<% if not objRS("AgencyName") = "" then %>Band: <%=objRS("AgencyName")%> <%end if%> <% if not objRS("Genre") = "" then %>Genre: <%=objRS("Genre")%> <%end if%> Band's Location: <%= objRs("Address") %> <%= objRs("City") %>, <%= objrs("State") %> <%= objRs("Zip") %> Phone: <%= formatphonenumber(objRS("PhoneNumber"))%> <% if objRS("CellPhone")<> "" then %> Cell: <%= formatphonenumber(objRS("CellPhone"))%> <% end if %> <% if objRS("FaxNumber")<> "" then %> Fax: <%= formatphonenumber(objRS("FaxNumber"))%> <% end if %> Email: "><%= objRS("EmailAddress")%> Band's Description: <% if objRS("Description") <> "" then %> <%= objRS("Description") %> <% else %> Band description Not Given <% end if %>

<%If Len(objRS("Picture1")) > 0 Then %> <% If UCase(Left(objRS("Picture1"),7))="HTTP://" Then%> " border="0" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture")%>',1)"> <%Else%> ','','550','550','1','1','100','100');">" border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture")%>',1)"> <%End If Else%> <%End If%>	<%If Len(objRS("Picture2")) > 0 Then %> <% If UCase(Left(objRS("Picture2"),7))="HTTP://" Then%> " border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture2")%>',1)"> <%Else%> ','','550','550','1','1','100','100');">" border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture2")%>',1)"> <%End If Else%> <%End If%>	<%If Len(objRS("Picture3")) > 0 Then %> <% If UCase(Left(objRS("Picture3"),7))="HTTP://" Then%> " border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture3")%>',1)"> <%Else%> ','','550','550','1','1','100','100');">" border="0" width="110" height="83" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture3")%>',1)"> <%End If Else%> <% End If%>
<%If Len(objRS("Picture4")) > 0 Then %> <% If UCase(Left(objRS("Picture4"),7))="HTTP://" Then%> " border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture4")%>',1)"> <%Else%> ','','550','550','1','1','100','100');">" border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture4")%>',1)"> <%End If Else%> <% End If%>	<%If Len(objRS("Picture5")) > 0 Then %> <% If UCase(Left(objRS("Picture5"),7))="HTTP://" Then%> " border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture5")%>',1)"> <%Else%> ','','550','550','1','1','100','100');">" border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture5")%>',1)"> <%End If Else%> <% End If%>	<%If Len(objRS("Picture6")) > 0 Then %> <% If UCase(Left(objRS("Picture6"),7))="HTTP://" Then%> " border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture6")%>',1)"> <%Else%> ','','550','550','1','1','100','100');">" border="0" width="110" height="83" onMouseOver="MM_swapImage('bigImage','','upload/agent<%=objRS("Picture6")%>',1)"> <%End If Else%> <% End If%>

<% strHits = objRS("Hits") strHits = strHits + 1 objRS("Hits") = strHits objRS.update %> <% response.write "This band has been viewed " & objRS("Hits") & " times." %>
">[ + to watch list ] ">[ Printable Listing ] ','','430','445','1','0','100','100');">[ Email A Friend ] &2c=<%= objRS("City") %>&2s=<%= objRS("State") %>&2z=<%= objRS("Zip") %>&2y=US" target=" "> [ Get Directions / View Map ]