Duware Gallery

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello
I am trying to enable user to send pic from duware gallery on my site.
but it has problem with invalid string when i acess sendpicture.asp . can anyone help?

<a  href="JavaScript:openWindow('sendpicture.asp?url=http://www.mysite.com/gallery/picz.asp?iPic=<%=R equest.QueryString("iPic")%>')">E-mail <%=(rsPic.Fields.Item("PIC_NAME").Value)%>'s Picture to a friend</a></font></b></p> 

sendpicture.asp code:

<%
Dim strSender
Dim strRecipientsName 
Dim strRecipients 
Dim strSubject 
Dim strMessage 
strRecipientsName = Request.Form("Name")
strRecipients = Request.Form("Email")
strSubject = "From: " & Request.Form("YName") & " Picture"
strMessage = "Hello " & Request.Form("Name") & vbCrLf & vbCrLf
strMessage = strMessage & Request.Form("Msg") & vbCrLf & vbCrLf
strMessage = strMessage & "You received this from : " & Request.Form("YName") & " " & Request.Form("YEmail")
strSender = Request.Form("YEmail")
%>
<%
  Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
        objNewMail.cc = "your_email@yourdomain.com"
  objNewMail.BodyFormat = 1
  objNewMail.MailFormat = 0
  on error resume next '## Ignore Errors
  objNewMail.Send strSender, strRecipients, strSubject, strMessage
  If Err <> 0 Then 
  Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
  End if
  on error resume next '## Ignore Errors
Set objNewMail = Nothing
%>
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
<p align="center"><b><font face="2" size="4">Send
Picture&nbsp; to a Friend</font></b></p>

<form action="sendpicture.asp?" method=post id=Form1 name=Form1>
<input type=hidden name="Page" value="<% =Request.QueryString %>">

<table border="0" width="100%%" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#e4e4e4">
    <div align="center">
      <center>
    <table border="0" width="100%" cellspacing="1" cellpadding="1">
      <TR>
        <TD bgColor=#e4e4e4 align="right" nowrap><b><font face="arial" size="2">Your
          Friend's Name:</font></b></td>
        <TD bgColor=#e4e4e4><input type=text name="Name" size=25></td>
      </tr>
      <TR>
        <TD bgColor=#e4e4e4 align="right" nowrap><b><font face="arial" size="2">Your
          Friend's Email:</font></b></td>
        <TD bgColor=#e4e4e4><input type=text name="Email" size=25></td>
       </tr>                ; 
      <tr>

        <td bgColor=#e4e4e4 align="right" nowrap><b><font face="arial" size=2>Your Name:</font></b></td>
        <td bgColor=#e4e4e4><input name=YName type=<% if YName <> "" then Response.Write("hidden") else Response.Write("text") end if%> value="<% = YName %>" size=25><font face="arial" size=2> <% if YName <> "" then Response.Write(YName) end if %></font></td> 
      </tr>
      <tr>
        <td bgColor=#e4e4e4 align="right" nowrap><b><font face="arial" size=2>Your Email:</font></b></td>
        <td bgColor=#e4e4e4><input name=YEmail type=<% if YEmail <> "" then Response.Write("hidden") else Response.Write("text") end if %> value="<% = YEmail %>" size=25><font face="arial" size=2> <% if YEmail <> "" then Response.Write(YEmail) end if %></font></td>
      </tr> 
      <tr>
        <td bgColor=#e4e4e4 colspan=2 nowrap>
          <p align="center"><b><font face="arial" size=2>Message:</font></b></p>
        </td>
      </tr>
      <tr>
        <td bgColor=#e4e4e4 colspan=2 align=center><textarea name="Msg" cols="40" rows=11 readonly>Hi,<% =vbCrLf %>A friend has sent you a picture from www.ex-design