DUGallery - vil ikke gemme kommentar
Jeg har hentet dette fotoalbum: http://www.ex-designz.net/dl_goto.asp?id=218Når besøgende skriver en kommentar til et billede gemmer scriptet ikke kommentaren...
siden hvor kommentaren skrives ser således ud:
picz.asp
<!--#include file="Connections/connDUgallery.asp" -->
<%
if(Request.QueryString("iPic") = "") then
Response.Redirect "default.asp"
Else
cmdView__var_id = Request.QueryString("iPic")
End if
%>
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) <> "") Then
Dim strEmailBody
Dim strRating
Dim strAuthorName
Dim strComment
Dim strEmailAddress
Dim strWebmasterEmail
Dim strAuthorHomepage
Dim strSubject
Dim strHeader
Dim strPicName
Dim strAttbi
strSubject = Request.Form("MSUBJECT")
strAuthorName = Request.Form("AUTHOR")
strEmailAddress = Request.Form("EMAIL")
strAuthorHomepage = Request.Form("HOMEPAGE")
strHeader = Request.Form("HEADER")
strWebmasterEmail = Request.Form("MFROM")
strSubject = Request.Form("MSUBJECT")
strComment = Request.Form("COMMENT")
strRating = Request.Form("RATING")
strPicName = Request.Form("PICNAME")
strAttbi = Request.Form("MATTBI")
strEmailBody = strEmailBody & "<br>Hello: " & strAuthorName
strEmailBody = strEmailBody & "<br><br>Thank for voting." & strPicName
strEmailBody = strEmailBody & "<br>at www.ex-designz.net picture gallery"
strEmailBody = strEmailBody & "<br><br>Info:"
strEmailBody = strEmailBody & "<br><br><b>Name: </b>" & strAuthorName
strEmailBody = strEmailBody & "<br><b>EMAIL: </b>" & strEmailAddress
strEmailBody = strEmailBody & "<br><b>HOMEPAGE: </b>" & strAuthorHomepage
strEmailBody = strEmailBody & "<br><b>COMMENT HEADER: </b>" & strHeader
strEmailBody = strEmailBody & "<br><br><b>COMMENT: </b>" & strComment
strEmailBody = strEmailBody & "<br><br>Webmaster,"
strEmailBody = strEmailBody & "<br>www.ex-designz.net"
strEmailBody = strEmailBody & "<br><br>Once again thank you for your vote ex-designz.net!"
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "<" & strAttbi & ">"
'Who the e-mail is sent to
objCDO.To = "<" & strEmailAddress & ">"
objCDO.cc = "<" & strWebmasterEmail & ">"
'The subject of the e-mail
objCDO.Subject = strSubject
'The main body of the e-amil
objCDO.Body = strEmailBody
'Set the e-mail body format (0=HTML 1=Text)
objCDO.BodyFormat = 0
'Set the mail format (0=MIME 1=Text)
objCDO.MailFormat = 0
'Send the e-mail
objCDO.Send()
Set objCDO = Nothing
MM_editConnection = MM_connDUgallery_STRING
MM_editTable = "COMMENTS"
MM_editRedirectUrl = "picomementredirect.asp"
MM_fieldsStr = "AUTHOR|value|HEADER|value|COMMENT|value|EMAIL|value|HOMEPAGE|value |RATING|value|hiddenField|value"
MM_columnsStr = "C_AUTHOR|',none,''|C_HEADER|',none,''|C_COMMENT|',none,''|C_HOMEPAGE|',none,''|C_EMAIL|',none,''|C_RATING|',none,''|PIC_ID|none,none,NULL"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim rsPic__MMColParam
rsPic__MMColParam = "1"
if (Request.QueryString("iPic") <> "") then rsPic__MMColParam = Request.QueryString("iPic")
%>
<%
set rsPic = Server.CreateObject("ADODB.Recordset")
rsPic.ActiveConnection = MM_connDUgallery_STRING
rsPic.Source = "SELECT * FROM PICTURES WHERE PIC_ID = " + Replace(rsPic__MMColParam, "'", "''") + ""
rsPic.CursorType = 0
rsPic.CursorLocation = 2
rsPic.LockType = 3
rsPic.Open()
rsPic_numRows = 0
%>
<%
Dim rsComment__MMColParam
rsComment__MMColParam = "1"
if (Request.QueryString("iPic") <> "") then rsComment__MMColParam = Request.QueryString("iPic")
%>
<%
set rsComment = Server.CreateObject("ADODB.Recordset")
rsComment.ActiveConnection = MM_connDUgallery_STRING
rsComment.Source = "SELECT * FROM COMMENTS WHERE PIC_ID = " + Replace(rsComment__MMColParam, "'", "''") + " ORDER BY C_DATE DESC"
rsComment.CursorType = 0
rsComment.CursorLocation = 2
rsComment.LockType = 3
rsComment.Open()
rsComment_numRows = 0
%>
<%
set cmdView = Server.CreateObject("ADODB.Command")
cmdView.ActiveConnection = MM_connDUgallery_STRING
cmdView.CommandText = "UPDATE PICTURES SET PIC_VIEW = PIC_VIEW + 1 WHERE PIC_ID = " + Replace(cmdView__var_id, "'", "''") + ""
cmdView.CommandType = 1
cmdView.CommandTimeout = 0
cmdView.Prepared = true
cmdView.Execute()
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsComment_numRows = rsComment_numRows + Repeat1__numRows
%>
<head>
<link rel="stylesheet" href="css/default.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function Start(page) {
OpenWin = this.open(page, "CtrlWindow", "width=520,height=370,toolbar=no,menubar=no,location=no,scrollbars=no,resizable=no");
}
// End -->
</SCRIPT>
<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[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].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[i]);
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>
<LINK href="css.css" type=text/css rel=STYLESHEET>
<LINK href="../style3.css" type=text/css rel=STYLESHEET>
</head>
<DIV CLASS = "LINKS"><br>
<p align="center"><b><font face="Tahoma" size="2"><a href="default.asp">Main Gallery</a>
| <a href="java script:Start('add.asp')"><img border="0" src="photo1.gif" alt="Add picture to our server"></a>
<a href="java script:Start('add.asp')">Add
a Picture </a>| <a href="java script:openWindow('pop_send_pic.asp?url=<% =strForumURL %>gallery/picz.asp?iPic=<%=Request.QueryString("iPic") %>')"><img border="0" src="icon_email.gif" alt="E-mail <%=(rsPic.Fields.Item("PIC_NAME").Value)%>'s Picture to a friend"></a>
<a href="java script:openWindow('sendpicture.asp?url=http://www.ex-designz.net/extremegallery/picz.asp?iPic=<%=Request.QueryString("iPic")%>')">E-mail <%=(rsPic.Fields.Item("PIC_NAME").Value)%>'s Picture to a friend</a></font></b></p>
<table width="100%">
<tr align="center" valign="middle">
<td colspan="2" width="100%">
<table border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td align="center" valign="top" bgcolor="#f4f4f4">
<table width="100%" border="2" cellspacing="0" cellpadding="0" bordercolor="#f4f4f4" bgcolor="#f4f4f4">
<tr class="generalText">
<td align="left" valign="middle" height="20"><b>Picture Name:</b>
<font color="#800000"><%=(rsPic.Fields.Item("PIC_NAME").Value)%></font> </td>
<td align="right" valign="middle" height="20"><b>Size:</b><font color="#00376F">
<%=(rsPic.Fields.Item("PIC_WIDTH").Value)%>Wx<%=(rsPic.Fields.Item("PIC_HEIGHT").Value)%>H</font></td>
</tr>
<tr class="generalText">
<td align="left" valign="middle" height="20"><b>File Name:</b>
<font color="#00356A"><%=(rsPic.Fields.Item("PIC_IMAGE").Value)%></font></td>
<td align="right" valign="middle" height="20"><b>Viewed:</b>
<font color="#FF0000"><%=(rsPic.Fields.Item("PIC_VIEW").Value)%></font></td>
</tr>
<tr>
<td align="center" colspan="2">
<table border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td align="center" valign="middle" bgcolor="#CCCCCC"><a href="pictures/<%=(rsPic.Fields.Item("PIC_IMAGE").Value)%>" target = "_blank"><img src="pictures/<%=(rsPic.Fields.Item("PIC_IMAGE").Value)%>" alt = "Download <%=(rsPic.Fields.Item("PIC_NAME").Value)%> (<%=(rsPic.Fields.Item("PIC_WIDTH").Value)%>Wx<%=(rsPic.Fields.Item("PIC_HEIGHT").Value)%>H)" border="0" align="absmiddle"></a></td>
</tr>
</table>
</td>
</tr>
<tr class="generalText">
<td align="left" valign="middle" height="20" colspan="2"><b>Description:</b>
<font color="#002953"><%=(rsPic.Fields.Item("PIC_DESC").Value)%></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr align="center" valign="middle" class="generalText">
<td colspan="2" width="100%">
<FONT FACE="geneva" SIZE="1" color="#000000"><b>Rating: <img src="assets/<%= FormatNumber((rsPic.Fields.Item("RATING").Value), 1, -2, -2, -2) %>.gif" align="middle" alt="<%=(rsPic.Fields.Item("PIC_NAME").Value)%> has been rated <%=(rsPic.Fields.Item("RATING").Value)%> stars">
<b> by ( <%=(rsPic.Fields.Item("NO_RATES").Value)%> users )</b></font>
<% If Request.Cookies(rsPic__MMColParam) = "" Then %>
<form name="RATE" method="GET" action="ratingrecipe.asp">
<img border="0" src="assets/star.gif" align="middle" alt="1"><input type="radio" name="RATING" value="1"><img border="0" src="assets/star.gif" align="middle" alt="2"><input type="radio" name="RATING" value="2"><img border="0" src="assets/star.gif" align="middle" alt="3">
<input type="radio" name="RATING" value="3" checked><img border="0" src="assets/star.gif" align="middle" alt="4"><input type="radio" name="RATING" value="4"><img border="0" src="assets/star.gif" align="middle" alt="5"><input type="radio" name="RATING" value="5">
<input type="hidden" name="ID" value="<%=(rsPic.Fields.Item("PIC_ID").Value)%>"> <input type="submit" name="Submit" value="Rate this Picture">
</form>
<%End if%>
<table border="0" cellspacing="1" width="100%">
<tr>
<td width="100%">
<br>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#E6EBF0">
<p align="center"><p align="center"><b><font face="verdana,arial,san-serif" size="1">
Comments for </font><font face="verdana,arial,san-serif" size="1"><font color="#002B55">(</font> <a href="pictures/<%=(rsPic.Fields.Item("PIC_IMAGE").Value)%>"><%=(rsPic.Fields.Item("PIC_NAME").Value)%></a>
<font color="#002B55">)</font></font></b></td>
</tr>
<tr>
<td width="100%">
<table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor="#f7f7f7">
<tr>
<td bgcolor="#F7f7f7" align="left" valign="top">
<%
While ((Repeat1__numRows <> 0) AND (NOT rsComment.EOF))
%>
<% If Not rsComment.EOF Or Not rsComment.BOF Then %>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td valign="top" bgcolor="#E4E8F3">
<table border="0" cellspacing="0" width="105%" cellpadding="0" bgcolor="#EFF1F8">
<tr>
<td width="55%" bgcolor="#F8F9FC">
<font face="verdana,arial,san-serif" size="1" color="#002B55">Comment by</font><font face="verdana,arial,san-serif" size="1" color="800000">
<%=(rsComment.Fields.Item("C_AUTHOR").Value)%></a><font face="verdana,arial,san-serif" size="1">
<font color="#002B55"> on</font> </font><font face="verdana,arial,san-serif" size="1"></font><font face="verdana,arial,san-serif" size="1" color="006699"><%=(rsComment.Fields.Item("C_DATE").Value)%>:</font>
<% If rsComment.Fields.Item("C_DATE").Value > date() - 3 Then %>
<% End If %>
</font>
<td width="30%" bgcolor="#F8F9FC">
<p align="left"><font face="verdana,arial,san-serif" size="1">Rated:(</font><font face="verdana,arial,san-serif" size="1" color="#800000"> <%=(rsComment.Fields.Item("C_RATING").Value)%></font><font face="verdana,arial,san-serif" size="1">
)
<b></b> by:</font><font face="verdana,arial,san-serif" size="1" color="#800000"><%=(rsComment.Fields.Item("C_AUTHOR").Value)%></font><font face="verdana,arial,san-serif" size="1" color="#002B55"> </FONT>
</td>
<td width="5%" bgcolor="#F8F9FC">
<p align="center">
<a href="<%=(rsComment.Fields.Item("C_EMAIL").Value)%>" target="_blank"><img border="0" src="home.gif" alt="Visit <%=(rsComment.Fields.Item("C_AUTHOR").Value)%>'s homepage" align="left" width="14" height="14"></a>
</p>
</td>
<td width="40%" bgcolor="#F8F9FC"><a href="mailto:<%=(rsComment.Fields.Item("C_HOMEPAGE").Value)%>" target="_blank"><img border="0" src="icon_email.gif" alt="Send <%=(rsComment.Fields.Item("C_AUTHOR").Value)%> an e-mail" align="absmiddle" width="15" height="15"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#FCFDFE"><font face="verdana,arial,san-serif" size="1"><b></b><b><%=(rsComment.Fields.Item("C_HEADER").Value)%></b></font><br><font face="verdana,arial,san-serif" size="1">
<%=(rsComment.Fields.Item("C_COMMENT").Value)%></font></td>
</tr>
</table>
<% End If ' end Not rsComment.EOF Or NOT rsComment.BOF %>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsComment.MoveNext()
Wend
%>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center" valign="top">
<table border="0" cellspacing="1" width="100%">
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td><font color="#FFFFFF">d</font></td>
</tr>
<tr>
<td bgcolor="#E6EBF0">
<p align="center"><b><font face="verdana,arial,san-serif" size="1"><a name="#REPPIC">Report
to webmaster</a></font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#EFF1F8">
<p align="center"><font face="verdana,arial,san-serif" size="1">Use this form to notify
me if this picture should be remove.</font></p>
</td>
</tr>
<tr>
<td bgcolor="#F4F4F4">
<form name="REPORT" method="POST" action="email.asp" target="_blank">
<p align="center"><font face="verdana,arial,san-serif" size="1"><b>You
E-mail: <input type="text" name="REPORTMAIL" size="20" maxlenght="30">
<font face="verdana,arial,san-serif" size="1"> Reason: <input type="text" name="REPORT" size="20" maxlenght="120">
<input type="submit" name="Submit" value="Report!" class = "buttons">
<input type="hidden" name="WEBMASTER" value="dexter_z2001@yahoo.com">
<input type="hidden" name="SUBREPORT" value="Picture Gallery Report for <%=(rsPic.Fields.Item("PIC_NAME").Value)%>">
</p>
</form>
</font></b></font>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td><font color="#FFFFFF">d</font></td>
</tr>
<tr>
<td bgcolor="#E6EBF0">
<p align="center"><b><font face="verdana,arial,san-serif" size="1"><a name="#RATEPIC">Your
Comment and rating for</a> ( <font color="#800000"><%=(rsPic.Fields.Item("PIC_NAME").Value)%> </font>)</font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<form name="COMMENT" method="POST" action="<%=MM_editAction%>">
<tr>
<td>
<p align="center"><font face="verdana,arial,san-serif" size="1">What do you
think of <font face="verdana,arial,san-serif" size="1" color="#800000"><%=(rsPic.Fields.Item("PIC_NAME").Value)%>'s</font><font face="verdana,arial,san-serif" size="1"> picture in your honest and humble
opinion?</font></td>
</tr>
<tr>
<td> <table align="center" border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="19%" bgcolor="#F4F4F4">
<p align="left">
<font face="verdana,arial,san-serif" size="1">
<input type="radio" value="5" name="RATING"><b><font color="#002B55">Goddess</font></b></font>
<td width="12%" bgcolor="#F4F4F4">
<font face="verdana,arial,san-serif" size="1">
<input type="radio" value="4" name="RATING" checked><b><font color="#002B55">Good</font></b></font></td>
<td width="12%" bgcolor="#F4F4F4">
<font face="verdana,arial,san-serif" size="1">
<input type="radio" value="3" name="RATING"><font color="#002B55"><b>Average</b></font></font></td>
<td width="24%" bgcolor="#F4F4F4">
<font face="verdana,arial,san-serif" size="1">
<input type="radio" value="2" name="RATING"><b><font color="#002B55">Below
Average</font></b></font></td>
<td width="34%" bgcolor="#F4F4F4">
<font face="verdana,arial,san-serif" size="1">
<input type="radio" value="1" name="RATING"><b><font color="#002B55">Not
worth to look</font></b></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" align="center" border="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#FFFFFF">
<table border="0" cellspacing="4" width="100%" cellpadding="4">
<tr>
<td width="36%" align="right"><b><font color="#002B55" size="1">Your
</font><font size="1"><font color="#002B55">Name:</font><font color="#FF0000">*</font></font></b></td>
<td width="64%">
<input type="Text" name="AUTHOR" size="46">
</td>
</tr>
<tr>
<td width="36%" align="right"><b><font size="1"><font color="#002B55">Your
Email:</font><font color="#FF0000">*</font></font></b></td>
<td width="64%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#0000FF"><input type="text" name="EMAIL" size="46" maxlength="80" value="Type Your email">
</font></b></font></td>
</tr>
<tr>
<td width="36%" align="right"><b><font size="1"><font color="#002B55">Homepage
URL:</font></b></td>
<td width="64%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#0000FF"><input type="text" name="HOMEPAGE" size="46" maxlength="100" value="http://">
</font></b></font></td>
</tr>
<tr>
<td width="36%" align="right"><b><font size="1"><font color="#002B55">Comment
Header:</font><font color="#FF0000">*</font></font></b></td>
<td width="64%"><input type="text" name="HEADER" size="46" maxlength="150">
</td>
</tr>
<tr>
<td width="36%" align="right" valign="top"><b><font size="1"><font color="#002B55">Comment:</font><font color="#FF0000">*</font></font></b></td>
<td width="64%">
<table border="0" cellpadding="2">
<tr>
<td><textarea name="COMMENT" cols="51" rows="5"></textarea>
</td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="Submit" onClick="MM_validateForm('AUTHOR','','R','HEADER','','R');return document.MM_returnValue" class = "buttons"></td>
</tr>
</table>
<input type="hidden" name="hiddenField" value="<%= Request.QueryString("iPic") %>">
<input type="hidden" name="MM_insert" value="true">
<input type="hidden" name="MFROM" value="dexter_z2001@yahoo.com">
<input type="hidden" name="MATTBI" value="retxed@attbi.com">
<input type="hidden" name="PICNAME" value="<%=(rsPic.Fields.Item("PIC_NAME").Value)%>">
<input type="hidden" name="MSUBJECT" value="webmaster@ex-designz.net">
</td>
</tr>
<tr>
</form>
</tr>
<td>
</td>
</table>
<tr>
<td>
</td>
</table>
</tr>
</table>
<%
rsPic.Close()
%>
<%
rsComment.Close()
%>
<br>
<center><font face="arial" size="1" color="#000000"><b>Page viewed </b></font><font face="arial" size="1" color="#800000"><b> <!--#include file="ipicz_counter.asp"--></b></font>
</center>
<br>
</b>
</table>
</div>
Når jeg klikker på "submit" for at sende beskeden får jeg denne fejl:
Microsoft VBScript runtime error '800a0046'
Permission denied
/picz.asp, line 101
i line 101 står der: objCDO.Send()
er der en der, kan hjælpe mig med at få det til at virke. :o)
