لماذا يتم تجاهل الشرط if في مقدمة الكود في الملف المرفق ويواصل البرنامج بقية الأسطر؟!!!
عاجل جداً رجاء: أين المشكلة؟!
مغلق
<%@ Language=VBScript CodePage=1256 %>
<%
if Session("member_cpr") = "" Or Session("member_gov") = "" Or Len(Trim(Request.Form("cboQ1"))) = -1 Or Request.Form("cboQ2") = -1 Or Request.Form("cboQ3") = -1 Or Request.Form("cboQ4") = -1 Or Request.Form("cboQ5") = -1 Or Request.Form("cboQ6") = -1 Then
Response.Redirect "formerror.asp"
End if
Dim strIP_Address
Dim connPoll, rsPoll, strSQL, strAddSQL
Dim JMail, strBody, strLink, strSubject
Dim sms, Phone, varUserID, varPassword
'Read the IP Address
strIP_Address = Request.ServerVariables("REMOTE_ADDR")
Set connPoll = Server.CreateObject("ADODB.Connection")
connPoll.CursorLocation = 3
connPoll.Open "Provider=SQLOLEDB; Data Source=64.224.17.231; InitialCatalog=global-adjusterscom; User Id=xxxxxxxxx; Password=xxxxxxx"
Set rsPoll = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM gov_poll WHERE member_cpr = " & Session("member_cpr")
Set rsPoll = connPoll.Execute(strSQL)
if rsPoll.RecordCount >= 1 Then Response.Redirect "already_poll.asp"
Set rsAddPoll = Server.CreateObject("ADODB.Recordset")
strAddSQL = "INSERT INTO gov_poll (which_gov, member_cpr, Q1, Q2, Q3, Q4, Q5, Q6, created_ip) " & "Values (N'" & Session("member_gov") & "', " & Session("member_cpr") & ", '" & Request.Form("cboQ1") & "', '" & Request.Form("cboQ2") & "', '" & Request.Form("cboQ3") & "', '" & Request.Form("cboQ4") & "', '" & Request.Form("cboQ5") & "', '" & Request.Form("cboQ6") & "', '" & strIP_Address & "')"
Set rsAddPoll = connPoll.Execute(strAddSQL)
Set rsPoll = Nothing
Set rsAddPoll = Nothing
Set connPoll = Nothing
'strLink = "www.jafaria-dubai.com/members"
'strSubject = "[JAFARIA-DUBAI.COM]: Membership"
' This is multi-lined simply for readability
'strBody = "Thank you for registering with JAFARIA-DUBAI.COM. You can start login to your account now. Your account details are:"
'strBody = strBody & vbCrLf & vbCrLf & "Your Email is : " & Request.Form("txtEmail")
'strBody = strBody & vbCrLf & "Your Password is : " & strPassword
'strBody = strBody & vbCrLf & vbCrLf & vbCrLf
'If Trim(Request.Form("txtEmail")) <> "" Then
'Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
'JMail.ServerAddress = "mailhub.registeredsite.com"
' This is me....
'JMail.Sender = "info@jafaria-dubai.com"
' E-Mail Subject...
'JMail.Subject = strSubject
' Get the recipients mailbox from a form (note the lack of a equal sign).
'JMail.AddRecipientex Request.Form("txtEmail"), "JAFARIA-DUBAI.COM Member"
' The body property is both read and write.
' If you want to append text to the body you can
' use JMail.Body = JMail.Body & "Hello world!"
' or you can use JMail.AppendText "Hello World!"
' which in many cases is easier to use.
'JMail.Body = strBody
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
'JMail.Priority = 3
'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' Must make sure that IUSR_???? has access to the following files.
'JMail.AppendBodyFromFile "e:\mail\standard_footer.txt"
'JMail.AddAttachment "e:\products\MyProduct.exe"
' Send it...
'JMail.Execute
'End If
Session("thanks_title") = "ÔßÑÇð ááÊÕæíÊ"
Session("thanks_message") = "ÔßÑÇð ááÊÕæíÊ"
Response.Redirect "thanks.asp"
Sub StrRandomize(strSeed)
Dim i, nSeed
nSeed = CLng(0)
For i = 1 To Len(strSeed)
nSeed = nSeed Xor ((256 * ((i - 1) Mod 4) * AscB(Mid(strSeed, i, 1))))
Next
'Randomiser
Randomize nSeed
End Sub
Function GeneratePassword(nLength)
Dim i, bMadeConsonant, c, nRnd
'You may adjust the below constants to include local,
'eg. scandinavian characters. This way your passwords
'will not be limited to latin characters.
Const strDoubleConsonants = "bdfglmnpst"
Const strConsonants = "bcdfghklmnpqrstv"
Const strVocal = "aeiou"
GeneratePassword = ""
bMadeConsonant = False
For i = 0 To nLength
'Get a random number number between 0 and 1
nRnd = Rnd
'Simple or double consonant, or a new vocal?
'Does not start with a double consonant
'15% or less chance for the next letter being a double consonant
If GeneratePassword <> "" AND (bMadeConsonant <> True) AND (nRnd < 0.15) Then
'double consonant
c = Mid(strDoubleConsonants, Len(strDoubleConsonants) * Rnd + 1, 1)
c = c & c
i = i + 1
bMadeConsonant = True
Else
'80% or less chance for the next letter being a consonant,
'depending on wether the last letter was a consonant or not.
If (bMadeConsonant <> True) And (nRnd < 0.95) Then
'Simple consonant
c = Mid(strConsonants, Len(strConsonants) * Rnd + 1, 1)
bMadeConsonant = True
'5% or more chance for the next letter being a vocal. 100% if last
'letter was a consonant - theoreticaly speacing...
Else
'If last one was a consonant, make vocal
c = Mid(strVocal, Len(strVocal) * Rnd + 1, 1)
bMadeConsonant = False
End If
End If
'Add letter
GeneratePassword = GeneratePassword & c
Next
'Is the password long enough, or perhaps too long?
If Len(GeneratePassword > nLength) Then
GeneratePassword = Left(GeneratePassword, nLength)
End If
End Function
%><form action="poll2db.asp" method="post" name="frmPoll" id="frmPoll" dir="rtl" lang="ar-bh"> <table align="right" dir="rtl" lang="ar-bh" width="565" cellspacing="0" cellpadding="0" border="0"> <tr> <td align="right"> <select name="cboQ1" dir="rtl" lang="ar-bh"> <option value="-1"></option> <option value="Y">äÚã</option> <option value="N">áÇ</option> </select> </td> <td align="right"><font size="-1"> </font></td> <td align="right"><font size="-1">åá ÊÚÑÝ ãä åæ ÇáãÍÇÝÙ ÇáÍÇáí ááãÍÇÝÙÉ ÇáÊí ÊÓßä ÈåÇ¿</font></td> </tr> <tr> <td align="right"></td> <td align="right"><br></td> <td align="right"></td> </tr> <tr> <td align="right"> <select name="cboQ2" dir="rtl" lang="ar-bh"> <option value="-1"></option> <option value="N">áÇ</option> <option value="1">ÒíÇÑÉ æÇÍÏÉ</option> <option value="+">ÃßËÑ ãä ÒíÇÑÉ</option> <option value="NN">áÇ ÃÚáã</option> </select> </td> <td align="right"><font size="-1"> </font></td> <td align="right"><font size="-1">åá ÞÇã ÇáãÍÇÝÙ ÇáÍÇáí ÈÒíÇÑÉ Ãæ ÃßËÑ áãäØÞÊß ááÓÄÇá Úä ÇÍÊíÇÌÇÊ ÃåÇáí ÇáãäØÞÉ¿</font></td> </tr> <tr> <td align="right"></td> <td align="right"><br></td> <td align="right"></td> </tr> <tr> <td align="right"> <select name="cboQ3" dir="rtl" lang="ar-bh"> <option value="-1"></option> <option value="Y">äÚã</option> <option value="N">áÇ</option> <option value="NN">áÇ ÃÚáã</option> </select> </td> <td align="right"><font size="-1"> </font></td> <td align="right"><font size="-1">åá ÓÇåã ÇáãÍÇÝÙ ÈÍá ÈÚÖ ãÔÇßá ãäØÞÊß¿</font></td> </tr> <tr> <td align="right"></td> <td align="right"><br></td> <td align="right"></td> </tr> <tr> <td align="right"> <select name="cboQ4" dir="rtl" lang="ar-bh"> <option value="-1"></option> <option value="E">ããÊÇÒ</option> <option value="G">ÌíÏ</option> <option value="B">ÖÚíÝ</option> <option value="NN">áÇ ÃÚáã</option> </select> </td> <td align="right"><font size="-1"> </font></td> <td align="right"><font size="-1">ÈÔßá ÚÇã ¡ ßíÝ ÊÞíøã ÃÏÇÁ ÇáãÍÇÝÙ ØíáÉ ÝÊÑÊå ÇáÓÇÈÞÉ¿</font></td> </tr> <tr> <td align="right"></td> <td align="right"><br></td> <td align="right"></td> </tr> <tr> <td align="right"> <select name="cboQ5" dir="rtl" lang="ar-bh"> <option value="-1"></option> <option value="Y">äÚã</option> <option value="N">áÇ</option> <option value="NN">áÇ ÃÚáã</option> </select> </td> <td align="right"><font size="-1"> </font></td> <td align="right"><font size="-1">åá ÊÄíÏ ÇáÊãÏíÏ ááãÍÇÝÙ ÇáÍÇáí áÃÑÈÚ ÓäæÇÊ ÅÖÇÝíÉ¿</font></td> </tr> <tr> <td align="right"></td> <td align="right"><br></td> <td align="right"></td> </tr> <tr> <td align="right"> <select name="cboQ6" dir="rtl" lang="ar-bh"> <option value="-1"></option> <option value="Y">äÚã</option> <option value="N">áÇ</option> <option value="NN">áÇ ÃÚáã</option> </select> </td> <td align="right"><font size="-1"> </font></td> <td align="right"><font size="-1">åá ÊÚÊÞÏ Ãä ÇáãÍÇÝÙ íÌÈ Ãä íßæä ãä äÝÓ ÃåÇáí ÇáãÍÇÝÙÉ¿</font></td> </tr> <tr> <td align="right"></td> <td align="right"><br><br></td> <td align="right"></td> </tr> <tr> <td align="right"></td> <td align="right"><font size="-1"> </font></td> <td align="right"><font size="-1"><strong><font color="#FF0000">ãáÇÍÙÉ åÇãÉ : </font></strong>íÑÌì ÇáÊÃßÏ ÌíÏÇð ãä ÌãíÚ ÅÌÇÈÇÊß ÇáÊí ÃÏÎáÊåÇ ¡ áÃäå áÇ íãßäß ÊÚÏíáåÇ ÈÚÏ ÇáÊÕæíÊ.</font></td> </tr> <tr> <td align="right"></td> <td align="right"><br><br></td> <td align="right"></td> </tr> <tr> <td align="right"></td> <td align="right"><font size="-1"> </font></td> <td align="center"><input type="submit" value=" ÊÕæíÊ " style="font-family: Tahoma; font-size: -1px;border: 1px solid #000000; background-color: #ccff99;" dir="rtl" lang="ar-bh"></td> </tr> </table> </form>
هل من أحد هنا؟
أرجو المساعدة العاجلة لو سمحتم
شكرا
جربت هذا ولم ينجح.. ما الحل؟
if (Session("member_cpr") = "") Or (Session("member_gov") = "") Or (Len(Trim(Request.Form("cboQ1"))) = -1) Or (Request.Form("cboQ2") = -1) Or (Request.Form("cboQ3") = -1) Or (Request.Form("cboQ4") = -1) Or (Request.Form("cboQ5") = -1) Or (Request.Form("cboQ6") = -1) Then
Response.Redirect "formerror.asp"
End ifيا جماعة ساعدوني الله يبارك فيكم
لست في تصميم صفحات الويب, لكن, قد يكون استخدامها حسبما رايت في عدة اكواد بمثل هذه الصيغ
if condition
{
statement;
}if a == b then statement end if
جرب الـ == , او بكل بساطة انظر في اي ملف عن مثل هذا الشرط
ولا تنسى ان تتاكد من انه يجب ان يتحقق على الاقل شرط واحد من مجموعة الشروط التي استخدمتها في الكتلة الاولى.
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
لا..
الشرط حسب الكود صحيح..
المشكلة أن نفس الكود استخدمه في صفحات أخرى ويعمل بدون أي مشكلة ما عدا هذه الصفحة الوحيدة
هل جربت استخدام نفس الصفحات في الوقت نفسه للتاكد من انه يعمل في بقية الصفحات؟
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
نعم
الآن أيضاً جربته مرة أخرى.. جميع الصفحات تعمل عدا هذه الصفحة..
جننتني
يا جماعة أرجوكم
ما في ولا واحد يقدر يساعدني في حل هاذي المعضلة؟!!
حتى لو تركت جميع البيانات لا إدخال يقوم بحفظها بقيمة -1 مع أن الشرط واضح ويمنع ذلك
هذا الموضوع مغلق.