Values('" & aut & "', '" & tit & "','" & art & "','" & sbj & "','" & tim &"', '" & ann & "')"
Set
rs = db.Execute(sSQL)
db.Close
Set
db = Nothing
End
If
Else
ErrP
= 1
End
If
N
= Now()
If
ErrP = 0 and ErrA = 0 and ErrT = 0 and ErrC = 0 Then
Response.Write
"Article uploaded successfully at " & N &"<br>"
End
If
If
ErrP = 1 Then
Response.Write
"Error! Article database access denied! Incorrect password!"
End
If
If
ErrA = 1 Then
Response.Write
"<br>" & "Error! No Author specified!"
End
If
If
ErrT = 1 Then
Response.Write
"<br>" & "Error! No Title specified!"
End
If
If
ErrC = 1 Then
Response.Write
"<br>" & "Error! You should specify article
text!"
End
If
</body>
</html>
У даному прикладі
комп'ютерного сайта були розглянуті
основні принципи побудови і використання
ASP технології.