Introducere în limbajul html

<%

Dim UtilizatorSolicitat

Dim ParolaTastata

‘se preiau datele completate in formularul din pagina Default.asp

UtilizatorSolicitat=Request.Form(“Nume”)

ParolaTastata=Request.Form(“Parola”)

‘se creaza o conexiune ADO utilizand numele “Baza1” definit ca System DSN in ODBC

Dim conx

Set conx=Server.CreateObject(“ADODB.Connection”) ‘crearea conexiunii

conx.Open(“Baza1”)

‘se creaza un recordset ADO pentru a verifica utilizatorul

Dim rec_utiliz

Set rec_utiliz =

conx.Execute(“SELECT*FROM UTILIZATORI WHERE NumeUtilizator=’” & UtilizatorSolicitat & “’;”)

‘se verifica daca utilizatorul exista in baza de date

If rec_utiliz.EOF=True Then

Response.Write “Nu exista un utilizator cu acest nume!”