nesarian
Registered User
- تاریخ عضویت
- 18 آگوست 2007
- نوشتهها
- 24
- لایکها
- 0
سلام خدمت شما دوستان عزيز
Error 800a01a8 ميده
ممنون ميشم پاسخ بدين
PHP:
<%@ Language=VBScript %>
<% Option Explicit %>
<Html>
<Body>
<!--#include virtual="/adovbs.inc"-->
<!--#include file="DBConnect.asp"-->
<%
Dim objRS,bolFound,strUsername
strUsername = Request.Form("UserName")
If ((Request.Form("UserName") = "")OR(Request.Form("Password") = "")_
OR (Request.Form("email") = "")OR (Request.Form("firstname") = "")_
OR (Request.Form("lastname") = ""))Then
objConn.Close
Set objConn = Nothing
%>
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "db",objConn,,adLockOptimistic,adCmdTable
bolFound = False
Do Until objRS.EOF OR bolFound
If (strComp(objRS("Username"),strUsername,vbTextCompare)=0)Then
bolFound = True
Else
objRs.MoveNext
End If
Loop
If Not bolFound Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<A Href=''>"
Response.Write ""
Response.Write "</A>"
Response.End
End If
objRS("FirstName") = Request.Form("firstname")
objRS("LastName") = Request.Form(lastname")
objRS.Update
objRS.Close
Set objRs = Nothing
End if
objConn.Close
Set objConn = Nothing
%>
</body>
</html>ممنون ميشم پاسخ بدين
