[b-s]

הקטע מקבל את כל השדות שרשומים בו מטופס שמילאו בו את השדות ואמור להכניס את הערכים של השדות שהתקבלו בדף הקודם למסד נתונים. ובסוף להעביר את המשתמש לדף חדש בשם: thanks.html

<%
 Dim conn, SQLstr
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.Open "myDSN2"

 SQLstr="INSERT INTO users_detailes (player_first_name,player_last_name,player_city,player_mail,player_nick_name,password,password_check,player_team,field_name,fan_club) VALUES ('"
 SQLstr = SQLstr & Request("player_first_name") & "','" 
 SQLstr = SQLstr & Request("player_last_name") & "','"
 SQLstr = SQLstr & Request("player_city") & "','" 
 SQLstr = SQLstr & Request("player_mail") & "','"
 SQLstr = SQLstr & Request("player_nick_name") & "','" 
 SQLstr = SQLstr & Request("password") & "','"
 SQLstr = SQLstr & Request("password_check") & "','" 
 SQLstr = SQLstr & Request("player_team") & "','"
 SQLstr = SQLstr & Request("field_name") & "','"
 SQLstr = SQLstr & Request("fan_club") & "')"
 conn.Execute SQLstr

 conn.Close
 Set conn = Nothing
 Response.Redirect("thanks.html")
%>