הקטע מקבל את כל השדות שרשומים בו מטופס שמילאו בו את השדות ואמור להכניס את הערכים של השדות שהתקבלו בדף הקודם למסד נתונים. ובסוף להעביר את המשתמש לדף חדש בשם: 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")
%>