2. ASPRunnerPro General questions
  3. Microsoft VBScript runtime error '800a01c2'
This topic is locked

Microsoft VBScript runtime error '800a01c2'

 		9/29/2006 9:21:11 AM
ASPRunnerPro General questions
B
 bburden author

I have inserted the code in my ....list.asp because I want to be able to send this information to outlook from within my database. Can you help me figure out the error. Thanks
<%

if IsBinaryField(rs.Fields("mailto")) or Format("mailto")=FORMAT_DATABASEFILE then

Response.Write CreateImageControl(rs, "mailto", "")

else

Response.Write ProcessLargeText("<a href=""mailto:" & GetData(rs.Fields("mailto"), "") &

"?subject=Property id " & GetData(rs.Fields("tktid"), "") & "&body=Please forward me information with regards this property " &

GetData(rs.Fields("tkt_id"), "") )& """>Click to request info!</a>"

end if

%>
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'ProcessLargeText'
/WORK-1/ticket_Table1_list.asp, line 3136
J
 		Jane 9/29/2006

Brenda,
you missed three parameters in the ProcessLargeText function.

I recommend you don't use this function:

<%

if IsBinaryField(rs.Fields("mailto")) or Format("mailto")=FORMAT_DATABASE_FILE then

Response.Write CreateImageControl(rs, "mailto", "")

else

Response.Write "<a href=""mailto:" & GetData(rs.Fields("mailto"), "") & "?subject=Property id " & GetData(rs.Fields("tktid"), "") & "&body=Please forward me information with regards this property " &

GetData(rs.Fields("tkt_id"), "") & """>Click to request info!</a>"

end if

%>
B
 		bburden author 9/29/2006

Brenda,

you missed three parameters in the ProcessLargeText function.

I recommend you don't use this function:


Thanks for the immediate response Jane, Can you tell me what would be your recommendation?
J
 		Jane 9/29/2006

try to use following code:

<%

if IsBinaryField(rs.Fields("mailto")) or Format("mailto")=FORMAT_DATABASE_FILE then

Response.Write CreateImageControl(rs, "mailto", "")

else

Response.Write "<a href=""mailto:" & GetData(rs.Fields("mailto"), "") & "?subject=Property id " & GetData(rs.Fields("tktid"), "") & "&body=Please forward me information with regards this property " &

GetData(rs.Fields("tkt_id"), "") & """>Click to request info!</a>"

end if

%>
B
 		bburden author 9/29/2006

Thank you for your time and patient with me. I will try it and will let you know the results.
B
 		bburden author 9/29/2006

I said I would let you know if it work and it does - IT WORKS GREAT.
Just one last question on this topic. is it possible to add mail to cc: to this function? Or can I add more than one person to the Mailto:?
For example in my database I have a field called (email_cust) and (cc_manager) these are both drop down boxes with the entire company employees and manager. Each record I add has a differnt employee and manager that has request some sort of work. I would like them to get a copy of the added record with with whatever info to be sent to them.
If this is not possible I will be content with what you have helped me with so far.
Thanks again for your help. I will be working of this until I hear from you.
Sergey Kornilov admin 9/30/2006

Here is the mailto protocol description:

http://msdn.microsoft.com/library/default....ined/mailto.asp