ADO in ASP

[Home]		Utilizare ADO cu ASP
[Home]		Utilizare ADO cu ASP

<%@ Language=VBScript %>
<%
Dim con, cmd, rst
Set con = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
Set rst = Server.CreateObject("ADODB.Recordset")
con.Open "Provider=SQLOLEDB.1;Initial Catalog=DATABASE_NAME;Data Source=SERVER_NAME;Workstation ID=SERVER_NAME;User Id=sa;PASSWORD=;"
Set cmd.ActiveConnection = con

Dim Msg, ID, hdnFor, Login, Password, Email
Dim MsgColor, LoginColor, PasswordColor, EmailColor

ID = Request ("hdnID")
hdnFor = Request ("hdnFor")
Login = Request ("txtLogin")
If Login = "" Then
    Login = Null
End If

Password = Request ("txtPassword")
If Password = "" Then
    Password = Null
End If

Email = Request ("txtEmail")
If Email = "" Then
    Email = Null
End If

'*********************************************************
' VALIDATE PARAMETERS
'*********************************************************
Function ValidateParameters()
     ValidateParameters = True
     If IsNull(Login) Then
         Msg = "Error! Required fields are missing!"
         hdnFor = "Error"
         MsgColor = "red"
         ValidateParameters = False
         LoginColor = "red"
     End If
     If IsNull(Password) Then
         Msg = "Error! Required fields are missing!"
         hdnFor = "Error"
         MsgColor = "red"
         ValidateParameters = False
         PasswordColor = "red"
     End If
End Function

'*********************************************************
' SAVE
'*********************************************************
If hdnFor = "Save" Then
     If ValidateParameters() Then
         cmd.CommandType = adCmdStoredProc
         cmd.CommandText = "spSaveUtilizatori"
         If Len(ID) <> 0 Then
             cmd("@ID") = ID
         Else
             cmd("@ID") = Null
         End If
         cmd("@Login") = Login
         cmd("@Password") = Password
         cmd("@Email") = Email

         cmd.Execute
         If cmd(0) = 0 Then
             ID = cmd("@ID")
             Msg = "Data Saved!"
             MsgColor = "blue"
         Else
             Msg = "Error! " & cmd(0)
             MsgColor = "red"
         End If
     End If
End If

'*********************************************************
' EDIT
'*********************************************************
If hdnFor = "Edit" Then
     cmd.CommandType = adCmdStoredProc
     cmd.CommandText = "spEditUtilizatori"
     cmd("@ID") = ID
     Set rst = cmd.Execute

     If Not rst.EOF Then
         Login = rst("Login")
         Password = rst("Password")
         Email = rst("Email")
     End If

     If cmd(0) <> 0 Then
         Msg = "Error! " & cmd(0)
         MsgColor = "red"
     End If
End If
%>

<HTML>
<BODY>

<SCRIPT LANGUAGE=JavaScript>
function saveForm()
{
     document.frmForm.action = 'Utilizatori.asp';
     document.frmForm.hdnFor.value = 'Save';
     document.frmForm.submit();
}
function clearForm()
{
     document.frmForm.hdnID.value = '';
     document.frmForm.hdnFor.value = '';
     document.frmForm.txtLogin.value = '';
     document.frmForm.txtPassword.value = '';
     document.frmForm.txtEmail.value = '';
}
function EditItem(i)
{
     document.frmForm.hdnFor.value = "Edit";
     document.frmForm.hdnID.value = i;
     document.frmForm.submit();
}
</SCRIPT>

<FORM ID='frmForm' NAME='frmForm' METHOD='POST' ACTION='Utilizatori.asp'>
<TABLE>
     <TR>
         <TD COLSPAN='2' ALIGN='center'>
             <FONT COLOR='<%=MsgColor%>'><B><%=Msg%></B></FONT>
         </TD>
     </TR>
     <TR>
         <TD>
             <FONT COLOR='<%=LoginColor%>'>
                 <%=Server.HTMLEncode("Login")%> *
             </FONT>
         </TD>
         <TD>
             <INPUT TYPE='TEXT' ID='txtLogin' NAME='txtLogin' VALUE='<%=Server.HTMLEncode(Login)%>' MAXLENGTH='12'>
         </TD>
     </TR>
     <TR>
         <TD>
             <FONT COLOR='<%=PasswordColor%>'>
                 <%=Server.HTMLEncode("Password")%> *
             </FONT>
         </TD>
         <TD>
             <INPUT TYPE='TEXT' ID='txtPassword' NAME='txtPassword' VALUE='<%=Server.HTMLEncode(Password)%>' MAXLENGTH='20'>
         </TD>
     </TR>
     <TR>
         <TD>
             <FONT COLOR='<%=EmailColor%>'>
                 <%=Email%>
             </FONT>
         </TD>
         <TD>
             <INPUT TYPE='TEXT' ID='txtEmail' NAME='txtEmail' VALUE='<%=Email%>' MAXLENGTH='50'>
         </TD>
     </TR>
     <TR>
         <TD COLSPAN='2' ALIGN='center'>
             <INPUT TYPE='BUTTON' ID='btnSave' NAME='btnSave' VALUE='Save' ONCLICK="saveForm();">
             <INPUT TYPE='BUTTON' ID='btnClear' NAME='btnClear' VALUE='Clear' ONCLICK="clearForm();">
         </TD>
     </TR>
</TABLE>

<INPUT TYPE='HIDDEN' ID='hdnID' NAME='hdnID' VALUE='<%=ID%>'>
<INPUT TYPE='HIDDEN' ID='hdnFor' NAME='hdnFor'>
</FORM>
<%
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "spGetAllUtilizatori"
Set rst = cmd.Execute
Dim i
i = 1
%>

<TABLE>
     <TR>
         <TD><B>#</B></TD>
         <TD>
             <B>Login</B>
         </TD>
         <TD>
             <B>Password</B>
         </TD>
         <TD>
             <B>Email</B>
         </TD>
     </TR>
     <%While Not rst.EOF%>
     <TR <%If Trim(ID) = Trim(rst("ID")) Then Response.Write(" bgcolor=#e6e5e5") End If%>>
         <TD>
             <A HREF='javascript:EditItem(<%=rst("ID")%>)'><%=i%></A>
         </TD>
         <TD>
             <%=Server.HTMLEncode(rst("Login"))%>
         </TD>
         <TD>
             <%=Server.HTMLEncode(rst("Password"))%>
         </TD>
         <TD>
             <%=rst("Email")%>
         </TD>
     </TR>
     <%i = i + 1%>
     <%rst.MoveNext%>
     <%WEnd%>
</TABLE>
</BODY>
</HTML>
<%
Set rst = Nothing
Set cmd.ActiveConnection = Nothing
Set cmd = Nothing
Set con = Nothing
%>