<% For Each Item In Request.FORM 'if left(Item,2)="f_" then 'pl_eml2= pl_eml2& Right(Item,len(Item)-2) & ": "&Request.FORM(Item) &"
"&vbcrlf tpl_eml= tpl_eml& ""&Item&"" & ": "&Request.FORM(Item) &"
"&vbcrlf tpl_campos= tpl_campos& ""&vbcrlf ' end if Next 'response.write( tpl_eml) apuesta= false 'check_bet (Request.Form("FirstName"), session("user_id"), 1,conn) response.Write(apuesta) if apuesta= true then response.redirect("messages.asp?acc=2&name="&Server.URLEncode(request.form("FirstName")) ) 'Session.Abandon() response.End() else 'response.Write("in else") StoreInDB id_new_bet=select_last(Request.Form("FirstName"),session("user_id"),conn) From= request.Form("to") 'From= "azlatin@userland.net" Rcpt= request.Form("to") 'Rcpt= "azlatin@userland.net" Subject="New bet from superbowlgameparty.com" Body=tpl_eml 'response.Write("From=" & From) 'Rem next statement until email link starts to work 'Send_cdo_Mail From,"jaisawhney@verizon.net",Subject,Body 'Send_cdo_Mail From,"jai@comcast.net",Subject,Body 'Send_cdo_Mail From,Rcpt,Subject,Body 'Send_cdo_Mail From,"azlatin@userland.net",Subject,Body 'tmpAvi - testing end if 'rsDC.Fields("sb_user_id") =session("user_id") dim fname , lname ,score, scoreBet, winbet, WinBy, Winner, Squares, comments fname=Request.Form("FirstName") lname =Request.Form("LastName") score = request.form("Score") scoreBet = request.form("ScoreBet") winbet = request.form("WinBet") Squares = request.form("Squares") Winner = request.form("Winner") WinBy = request.form("WinBy") comments=request.form("comments") response.redirect "http://www.superbowlgameparty.com/sp2.aspx?fname=" & fname & "&lname=" & lname & "&Squares=" & Squares & "&scoreBet=" & scoreBet &"&Winner=" & Winner &"&winbet=" & winbet &"&WinBy=" & WinBy &"&score=" & score &"&comments=" & comments 'response.redirect "http://www.execplanexpress.com" 'response.redirect("messages.asp?acc=1&name="&Server.URLEncode(request.form("FirstName"))&"&id_new_bet="&id_new_bet ) %>

<%= tpl_campos %>