فين المشكلة

هذا الكود يقبل الاضافة في الكمبيوتر الشخصي وما يقبل يضيف علىالنت

ممكن تحدد لي ايش المشكلة

<%@ Language=VBScript CodePage = "1256"%>

<%

'أوامر فتح قاعدة البيانات

Dim ConnectionString

Dim ADO

ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("database\project.mdb")

Set ADO=Server.CreateObject("ADODB.Connection")

ADO.ConnectionString =ConnectionString

ADO.Open

add_dat = now()

name = request.form ("name")

email = request.form ("email")

website = request.form ("website")

link = request.form ("link")

ranking = request.form ("ranking")

cete = request.form ("cete")

comment = request.form ("comment")

If name="" or comment="" then

//response.write "<center>" & "لم تقم بإدخال جميع الحقول المطلوبة.. من فضلك اضغط زر عودة في متصفحتك وقم بإدخال جميع الحقول"

Else

addSQL= " insert into guest_book (add_dat,name,email,website,link,ranking,cete,comment) values ('"&add_dat&"','"&name&"','"&email&"','"&website&"','"&link&"','"&ranking&"','"&cete&"','"&comment&"') "

ADO.execute(addSQL)

response.redirect "guest.asp"

End if

ADO.close

Set ADO=Nothing

%>