ASP installs SQL database and imports data and establishes users

<%
' On Error Resume Next
Action=request ("Action")
IF action<> "Install" THEN
%>
<BR>
<center>
<form method= "POST" action= "Install.asp?action=install" Name= "Form1" >
Fill in Installation information <BR><BR>
SQL database administrator: <input name=struid value=sa><br>
SQL database Password: <input name=strsapwd value=40104529><br>
SQL database address: <input name=strserver value=localhost><br><br>
<input name= "Cmdok" type= "Submit" class= "Form1" value= "Start installation ..." >
</form>
</center>
<%
Else
Struid=request ("Struid")
Strsapwd=request ("Strsapwd")
Strserver=request ("Strserver")
Call Createdb ("info")
Call RestoreDB ("info", "Backup1.bak")
Call CreateUser ("Bin", "85228522", "info")
Response.Write "<center><br><br><input type= ' button ' value= ' installation complete! ' onclick= ' javascript:windows.close () ' ></center> '
End If
' Step1 Build a database
Sub Createdb (strDbName)
Dim Conn ' Database connection
Dim strdsn ' Database connection string
Dim strcmd ' command string
strdsn= "Driver={sql server};server=" &StrServer& "uid=" &StrUid& ";p wd=" &StrSaPwd& "; Database=master "
' Establish a connection with the database master
Set Conn = Server.CreateObject ("ADODB. Connection ")
Conn.Open strDSN
' Create a new database
strcmd= "CREATE DATABASE" &strdbname
Conn.execute (Strcmd)
Conn.close
Set conn=nothing
End Sub
' Step2 Import data
Sub RestoreDB (Strdbname,frombak)
sql= "Restore database" & strDbName & "from disk=" &server.mappath (frombak) & ""