פורסם 2007 ביולי 318 שנים היי, זה הדבר הראשון שאני כותבת בASP ונראה לי שנתקעתי..יש לי טופס רגיל שמועבר לדף ASP שאמור להוסיף רשומה לטבלה ולעדכן את השדות שמולאו.הצלחתי להגיע למצב שהכל רץ בלי הודעות שגיאה אבל...למעט שדה השעה והתאריך, שום דבר לא מתעדכן!<% Dim DB Set DB = Server.CreateObject("ADODB.Connection") DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("updates.mdb") & ";"Dim upRSSet upRS= server.CreateObject("ADODB.Recordset")upRS.Open "Select * From changes", DB, 3, 3upRS.AddNewIF (request("mcsqled")="checked") THEN upRS.Fields("mcSQLED")= True IF (request("mcsqldb")="checked") THEN upRS.Fields("mcSQLMCDB")=trueIF (request("websql")="checked") THEN upRS.Fields("websql")=trueIF (request("webserver")="checked") THEN upRS.Fields("webserver")=trueIF (request("proclarity")="checked") THEN upRS.Fields("proclarity")=trueIF (request("monitorcs")="checked") THEN upRS.Fields("mcs")=trueIF (request("webserver")="checked") THEN upRS.Fields("germdev")=trueIF (request("gd")="checked") THEN upRS.Fields("germdev")=trueIF (request("swd")="checked") THEN upRS.Fields("swissdev")=trueIF (request("dbs")="checked") THEN upRS.Fields("dbstruct")=trueIF (request("monitorpr")="checked") THEN upRS.Fields("monitorp")=trueIF (request("appup")="checked") THEN upRS.Fields("appup")=true upRS.Fields("appver")=Request.Form("appver") upRS.Fields("appname")=Request.Form("appname") upRs.update()End IF upRS.Fields("otherconn")=Request.Form("other2")upRS.Fields("reasonChange")=Request.Form("reasonChange")upRS.Fields("modifdetails")=Request.Form("moddetails")upRS.Fields("date")=date() upRS.Fields("time")=time()upRs.update()upRs.CloseDB.CloseSet upRs = Nothing%>אין לי שום הודעת שגיאה.. אשמח לקבל רמזים .. תודה (:
פורסם 2007 ביולי 318 שנים הי,לא חסרים לך end if או elseif לכל ה if פרט לאחרון? או שפשוט לא העתקת את זה לפה?ולמה פשוט לעדכן את כל הרשומהבבת אחת?the Z-Guy
פורסם 2007 ביולי 418 שנים מחבר לא משנה, הצלחתי לגרום לזה לעבוד בסוף (: תודה! johndou , הטריק שהצעת לא עזר..הנה הקוד של הטופס: <html><FORM name="test.asp" methode="post" action="addtodb.asp"> <table border=1 cellspacing=3 cellpadding=3 bordercolor=black bgcolor="FF6600" align="center"> <tr align=center bgcolor=gold> <td colspan=2><b><font size="6">Connection to PHTS network</font></b> <tr align=center bgcolor=gold> <td colspan=2> Date and Time: <%Response.Write(now())%> <tr align=left> <td nowrap align=top bgcolor=gold> <br><b>Connecion to server</b> <BR><INPUT TYPE="CHECKBOX" NAME="mcsqldb" Value="mcsqldb"> Monitor Center SQL - MC database <BR><INPUT TYPE="CHECKBOX" NAME="mcsqled" Value="mcsqled"> Monitor Center SQL - Enrolment databse <BR><INPUT TYPE="CHECKBOX" NAME="websql" Value="websql"> Web SQL <BR><INPUT TYPE="CHECKBOX" NAME="webserver" Value="webserver" > Web Server <BR><INPUT TYPE="CHECKBOX" NAME="proclarity" Value="proclarity"> Proclarity / Cognus Server <BR><INPUT TYPE="CHECKBOX" NAME="monitorcs" Value="monitorcs"> Monitor Center Stations <SELECT name=selectBox> <OPTION Value="user1">user1 <OPTION Value="user2">user2 <OPTION Value="user3">user3 </SELECT> <BR><INPUT TYPE="CHECKBOX" NAME="gd" Value="gd"> Germany devices <BR><INPUT TYPE="CHECKBOX" NAME="swd" Value="swd"> Swiss Devices <BR>other: <INPUT TYPE="text" name="other" SIZE=25 MAXLENGTH=30 style="background-color : #FF6600;" > <BR> </td> <td nowrap bgcolor=gold> <br><b>Change</b> <BR><INPUT TYPE="CHECKBOX" NAME="dbs" Value="dbs"> Database structure <BR><INPUT TYPE="CHECKBOX" NAME="monitorpr" Value="monitorpr"> Monitoring process <BR><INPUT TYPE="CHECKBOX" NAME="appup" Value="appup"> Application update App: <TEXTAREA ROWS=1 COLS=9 NAME="appname" wrap=virtual style="background-color : #FF6600;"> </TEXTAREA> Ver: <TEXTAREA ROWS=1 COLS=5 NAME="appnver" wrap=virtual style="background-color : #FF6600;"> </TEXTAREA> <BR><INPUT TYPE="CHECKBOX" NAME="changesql" Value="changesql"> Changing SQL SP <BR>other: <INPUT TYPE="text" name="other2" SIZE=30 MAXLENGTH=30 style="background-color : #FF6600;"> <BR>Reason:<br> <TEXTAREA ROWS=10 COLS=40 NAME="reasonChange" wrap=virtual style="background-color : #FF6600;"> </TEXTAREA> </td> <tr align=center > <td colspan=2 bgcolor=gold><hr size=2 width=400></td> </tr> <tr align=center> <td nowrap colspan=2 bgcolor=gold> Modification Details<br> <TEXTAREA ROWS=15 COLS=45 NAME="moddetails" wrap=virtual style="background-color : #FF6600;"> </TEXTAREA><br> </td> <tr align=center > <td colspan=2 bgcolor=gold><hr size=2 width=400></td> </tr> </tr> <tr > <td align=center nowrap colspan=2 bgcolor=gold> <BUTTON TYPE=SUBMIT>Send</BUTTON> </tr></table></font></FORM></body></html>ועד כמה שידוע לי אם יש יותר מפקודה אחת אחרי הIF אז צריך להוסיף END IF, אבל אתם מוזמנים לתקן אותי..תודה!
פורסם 2007 ביולי 518 שנים מחבר טוב , אז בעיה חדשהאני צריכה לשלוח מייל על עדכונים בDB, בשביל זה עשיתי דף ASP נפרד ששולף את הנתונים מהDB ואני משתמשת בקוד הבא כדי לשלוח אותו: Dim myMailSet myMail=CreateObject("CDO.Message")myMail.Subject="changes"myMail.From="vereds@shahal.co.il"myMail.To="vereds@shahal.co.il"myMail.CreateMHTMLBody "[url]http://localhost/email.asp"[/url] myMail.Sendset myMail=nothingupRs.CloseDB.CloseSet upRs = Nothingאני מקבלת את השגיאה הבאה: Error Type:(0x8004021A)/addtodb.asp, line 38שם יש את השורה הזו:myMail.CreateMHTMLBody "http://localhost/email.aspאני מעריכה שהטעות פה היא ביצירת גוף HTML מדף ASP, אבל אני שואלת פה ליתר בטחון, כי לא הצלחתי למצוא יותר מידי מידע, אם כן, השאלה הבאה היאאיזו דרך אחרת יש לעשות אתזה?(בדקתי כבר שהSMTP service מותקן, והורדתי את cdonts.dll ועשיתי לו רגי'סטר.. )תודה מראש!
פורסם 2007 ביולי 518 שנים מחבר טוב, אז מה שפתר את הבעיה היה להעביר את כל קוד הASP לאחרי התג הפותח של הHTML. אבל בעיה אחרת.. הוא שולח מייל ריק ):
פורסם 2007 ביולי 618 שנים אם אני לא טועה הוא לא יודע להפוך את הקישור ל HTML עם כל הפלט של ASP.לכן צריך לעשות את הכל באותו הדף וליצור משתנה שיכיל את התוכן של המייל.
ארכיון
דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.