Import Data | database
<%
' 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", "Backup\1.bak")
Call CreateUser ("Bin", "85228522", "info")
Response.Write "<center><br><br><input type= ' button ' value= ' installation complete! ' "
Conn.execute (Strcmd)
Conn.close
Set conn=nothing
End Sub
%>
