¿alguen sabe como usar On Error Goto 0 ?
Brinkster File Editor [\webroot\email.asp]
Status: Error : Your file was NOT saved. The directive 'on error resume next' is being used in an unsafe manner. If you decide to use 'on error resume next', you must check for the err object and reset default error handling with 'on error goto 0'
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="db.asp" -->
<html>
<body>
<%SQL2="select to from pedidos WHERE Idpedido IN("&Request.Form("Idpedido")&")")
Set rs2=Server.CreateObject("ADODB.Recordset")
Rs2.open SQL2,Strconn,adOpensatatic,adlockreadonly
While not Rs2.eof
Dim email
Dim user_name
email=rs2("email")
Dim Objmail
Set Objmail=Server.CreateObject("CDO.Message")
Set ObjConfig=Server.CreateObject("CDO.Configuration")
ObjConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
ObjConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="sendmail.brinkster.com"
ObjConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername")="[email protected]"
ObjConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="mipassword"
ObjConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
ObjConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
ObjConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=60
ObjConfig.fields.update
Set Objmail.configuration=Objconfig
Objmail.from="[email protected]"
On Error resume Next
Objmail.To=email
Objmail.Subject="new topic started-"&title
Objmail.HTMLBody="Email a varios"
Objmail.Send
Set Objmail=Nothing
Set ObjConfig=Nothing
Rs2.Movenext
wend
db.close
%>
</body>
</html>
