עבור לתוכן

עזרה בASP- עדכון - בעיה בשליחת מייל

על-ידי Necessary_Evil
ב תכנות

Featured Replies

פורסם

היי, זה הדבר הראשון שאני כותבת ב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 upRS
Set upRS= server.CreateObject("ADODB.Recordset")
upRS.Open "Select * From changes", DB, 3, 3
upRS.AddNew
IF (request("mcsqled")="checked") 	THEN	upRS.Fields("mcSQLED")= True 
IF (request("mcsqldb")="checked") 	THEN	upRS.Fields("mcSQLMCDB")=true
IF (request("websql")="checked")	THEN	upRS.Fields("websql")=true
IF (request("webserver")="checked")	THEN	upRS.Fields("webserver")=true
IF (request("proclarity")="checked")	THEN	upRS.Fields("proclarity")=true
IF (request("monitorcs")="checked")	THEN	upRS.Fields("mcs")=true
IF (request("webserver")="checked")	THEN	upRS.Fields("germdev")=true
IF (request("gd")="checked")		THEN	upRS.Fields("germdev")=true
IF (request("swd")="checked")		THEN	upRS.Fields("swissdev")=true
IF (request("dbs")="checked")		THEN 	upRS.Fields("dbstruct")=true
IF (request("monitorpr")="checked")	THEN	upRS.Fields("monitorp")=true
IF (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.Close
DB.Close
Set upRs = Nothing




%>




אין לי שום הודעת שגיאה.. אשמח לקבל רמזים .. תודה (:

  • ציטוט
    • פורסם

    הי,

    לא חסרים לך end if או elseif לכל ה if פרט לאחרון? או שפשוט לא העתקת את זה לפה?

    ולמה פשוט לעדכן את כל הרשומהבבת אחת?

    the Z-Guy

  • ציטוט
    • פורסם

    1) על CHECKBOX רצים עם FOREACH.

    2) תעלי לכאן את הקוד של הFORM.

  • ציטוט
    • פורסם

    תשני את כל ה ="checked"

    ל ="on"

    נראה לי שזה יעבוד

  • ציטוט
    • פורסם
    • מחבר

    לא משנה, הצלחתי לגרום לזה לעבוד בסוף (:

    תודה!

    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, אבל אתם מוזמנים לתקן אותי..

    תודה!

  • ציטוט
    • פורסם
    • מחבר

    טוב , אז בעיה חדשה

    אני צריכה לשלוח מייל על עדכונים בDB, בשביל זה עשיתי דף ASP נפרד ששולף את הנתונים מהDB ואני משתמשת בקוד הבא כדי לשלוח אותו: 


    Dim myMail
    Set 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.Send
    set myMail=nothing
    upRs.Close
    DB.Close
    Set upRs = Nothing

    אני מקבלת את השגיאה הבאה:

    Error Type:

    (0x8004021A)

    /addtodb.asp, line 38

    שם יש את השורה הזו:

    myMail.CreateMHTMLBody "http://localhost/email.asp

    אני מעריכה שהטעות פה היא ביצירת גוף HTML מדף ASP, אבל אני שואלת פה ליתר בטחון, כי לא הצלחתי למצוא יותר מידי מידע, אם כן, השאלה הבאה היא

    איזו דרך אחרת יש לעשות אתזה?

    (בדקתי כבר שהSMTP service מותקן, והורדתי את cdonts.dll ועשיתי לו רגי'סטר.. )

    תודה מראש!

  • ציטוט
    • פורסם
    • מחבר

    טוב, אז מה שפתר את הבעיה היה להעביר את כל קוד הASP לאחרי התג הפותח של הHTML. אבל בעיה אחרת.. הוא שולח מייל ריק ):

  • ציטוט
    • פורסם

    תנסי לשלוח באימייל קובץ HTML בלבד, ולא קובץ ASP.

  • ציטוט
    • פורסם
    • מחבר

    אוקי, מכאן תבוא השאלה, איך להפוך דף ASP לSTRING של ?HTML

  • ציטוט
    • פורסם

    אם אני לא טועה הוא לא יודע להפוך את הקישור ל HTML עם כל הפלט של ASP.

    לכן צריך לעשות את הכל באותו הדף וליצור משתנה שיכיל את התוכן של המייל.

  • ציטוט

    • ארכיון

    דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

    עבור לרשימת הדיונים

    דיונים חדשים