I need to convert a asp.net page back into classic ASP and I am running into problems in getting this accomplished. It is blowing up all over the place.
Help needed now!
Thank you.
I have:
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim cmd
Set cmd = Server.CreateObject("ADODB.Command")

objConn.Open ConnectionString
cmd.Connection = sqlcon
cmd.CommandText = "sp_setapprole"
cmd.CommandType = CommandType.StoredProcedure
Dim rolename As SqlClient.SqlParameter = cmd.Parameters.Add("@rolename", SqlDbType.VarChar, 20)
rolename.Value = "PW1"
Dim password As SqlClient.SqlParameter = cmd.Parameters.Add("@password", SqlDbType.VarChar, 20)
password.Value = "PW2"
cn.Open()
cmd.ExecuteNonQuery()
Dim strUser As String
strUser = "DOMAIN\Users"
If (Roles.IsUserInRole(strUser)) Then
txtEmpID.Focus()
Else
Response.Redirect("
http://home.asp")
End If