Link til bestemt billedadresse ?
HejJeg har en lille database(Access) hvor jeg henter data - deriblandt et billede der ligger i en mappe kaldet billeder(genialt !) og i den mappe ligger de delt ud i mapper med bestemte numre = http://mitdomæne.dk/billeder/70000/et_eller_andet.jpg
Når mit script har hentet dataene incl. billede kan man klikke på billedet for at få det større. Når man klikker kaldes scriptet showimg.asp(herunder)
<html>
<head>
<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=iso-8859-1\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<title></title>
</head>
<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0>
<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" height=\"400\">
<tr>
<td width=\"100%\" valign=\"middle\" align=\"center\"><%
url = request.querystring(\"id\")
Response.Write \"<img src=\'billeder/\" & url & \"\'>\"
%></td>
</tr>
</table>
</center>
</div>
</body>
</html>
Det går fint - hver gang. Nu kunne jeg godt tænke mig at \"Anbefale\" det billede som forstørres ved hjælp af showimg.asp ! Jeg har et script med en \"anbefal\" funktion som virker, med tekst !!!
HVORDAN Laver jeg for det første en link fra showimg.asp der hedder eks \"send billedet til en ven\" hvorefter mit \"anbefalscript loades i et lille popupvindue ? og HVORDAN får jeg BilledeURL´en med over i emilen så den vises hos den der modtager emailen ?????????????????
Kan nogen hjælpe mig her ? Er rimelig ny i asp - såh..... - Scriptet friend.asp er herunder !
På forhånd tak.
<!--#include file=\"headerinc.asp\"-->
<%
EmailSubject=\"Check denne website!!\"
EmailFooter1=\"Denne meddelelse er blevet sendt til dig af en af vore besøgende:\"
EmailFooter2=\"http://www.proveplanter.dk\"
EmailFooter3=\"Billededatabase med Danske Potteplanter!\"
WebmasterMail=\"YES\"
sYourEmail=\"ivan@florint.dk\"
\' Heading font color
FontColor=\"#000000\"
\' Heading Background Color
HeadColor=\"#CCCCCC\"
\' Form Font Color
FormFontColor=\"#000000\"
\' Form Background Color
FormBackColor=\"#ffffff\"
\'Error Message Color
ErrorColor=\"red\"
Function ValidateField(sFieldValue, sFieldType)
Dim bFieldIsOkay, Email, Friend, Message
bFieldIsOkay = true
Select Case LCase(sFieldType)
Case \"uemail\"
If Len(sFieldValue) < 5 Then
bFieldIsOkay = False
Else
If InStr(1, sFieldValue, \"@\", 1) < 2 Then
bFieldIsOkay = False
Else
If InStr(1, sFieldValue, \".\", 1) < 4 Then
bFieldIsOkay = False
End If
End If
End If
Case \"name\"
If Len(sFieldValue) = 0 Then bFieldIsOkay = False
Case \"fname\"
If Len(sFieldValue) = 0 Then bFieldIsOkay = False
Case \"email\"
If Len(sFieldValue) < 5 Then
bFieldIsOkay = False
Else
If InStr(1, sFieldValue, \"@\", 1) < 2 Then
bFieldIsOkay = False
Else
If InStr(1, sFieldValue, \".\", 1) < 4 Then
bFieldIsOkay = False
End If
End If
End If
Case \"message\"
If Len(sFieldValue) = 0 Then bFieldIsOkay = False
Case \"else\"
bFieldIsOkay = False
End Select
ValidateField = bFieldIsOkay
End Function
Sub ShowFormField(Bert)
%>
<center><form action=\"<%= Request.ServerVariables(\"Script_Name\") %>\" METHOD=\"post\">
<table border=\"0\" CELLSPACING=\"0\" WIDTH=\"230\">
<tr bgcolor=\"<%=HeadColor%>\"><td align=\"left\"><font color=\"<%=FontColor%>\" face=\"verdana,arial,sans-serif\" size=\"-1\"><B>Dit navn:</B> </td></tr>
<tr><td><input name=\"name\" TYPE=\"text\" VALUE=\"<%= Request.Form(\"name\") %>\" size=\"40\" style=\"FONT-SIZE: 10px; COLOR: <%=FormFontColor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>\"></INPUT></td>
</tr><tr><td><%
If dictFields(LCase(\"name\")) Then
Response.Write \"<font color=\"\"#ff6b00\"\" face=\"\"verdana,arial,helvetica\"\" size=-2>You need to enter your name</font>\"
Else
Response.Write \" \"
End If
%>
</td></tr>
<tr bgcolor=\"<%=HeadColor%>\"><td align=\"left\"><font color=\"<%=FontColor%>\" face=\"verdana,arial,sans-serif\" size=\"-1\"><B>Din email adresse:</B> </td></tr>
<tr><td><input name=\"uemail\" TYPE=\"text\" VALUE=\"<%= Request.Form(\"uemail\") %>\" size=\"40\" style=\"FONT-SIZE: 10px; COLOR: <%=FormFontColor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>\"></INPUT></td>
</tr><tr><td><%
If dictFields(LCase(\"uemail\")) Then
Response.Write \"<font color=\"\"#ff6b00\"\" face=\"\"verdana,arial,helvetica\"\" size=-2>You need to enter a valid email address</font>\"
Else
Response.Write \" \"
End If
%>
</td></tr>
<tr bgcolor=\"<%=HeadColor%>\"><td align=\"left\"><font color=\"<%=FontColor%>\" face=\"verdana,arial,sans-serif\" size=\"-1\"><B>Din vens navn:</B> </td></tr><tr><td><input name=\"fname\" TYPE=\"text\" VALUE=\"<%= Request.Form(\"fname\") %>\" size=\"40\" style=\"FONT-SIZE: 10px; COLOR: <%=FormFontColor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>\"></INPUT></td>
</tr>
<tr><td><%
If dictFields(LCase(\"fname\")) Then
Response.Write \"<font color=\"\"#ff6b00\"\" face=\"\"verdana,arial,helvetica\"\" size=-2>You need to enter your friends name</font>\"
Else
Response.Write \" \"
End If
%>
</td></tr>
<tr bgcolor=\"<%=HeadColor%>\"><td align=\"left\"><font color=\"<%=FontColor%>\" face=\"verdana,arial,sans-serif\" size=\"-1\"><B>Din vens email adresse:</B> </td></tr><tr><td><input name=\"email\" TYPE=\"text\" VALUE=\"<%= Request.Form(\"email\") %>\" size=\"40\" style=\"FONT-SIZE: 10px; COLOR: <%=FormFontColor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>\"></INPUT></td>
</tr>
<tr><td><%
If dictFields(LCase(\"email\")) Then
Response.Write \"<font color=\"\"#ff6b00\"\" face=\"\"verdana,arial,helvetica\"\" size=-2>You need to enter a valid email address</font>\"
Else
Response.Write \" \"
End If
%>
</td></tr>
<tr bgcolor=\"<%=HeadColor%>\"><td align=\"left\"><font color=\"<%=FontColor%>\" face=\"verdana,arial,sans-serif\" size=\"-1\"><B>Din meddelelse:</B> </td></tr>
</tr><tr><td><TEXTAREA NAME=\"message\" WRAP=VIRTUAL COLS=\"40\" ROWS=\"6\" style=\"FONT-SIZE: 10px; COLOR: <%=FormFontColor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>\"><%= Request.Form(\"message\") %></TEXTAREA></td><tr><td><%
If dictFields(LCase(\"message\")) Then
Response.Write \"<font color=\"\"#ff6b00\"\" face=\"\"verdana,arial,helvetica\"\" size=-2> You need to enter a message</font>\"
Else
Response.Write \" \"
End If
%>
</td></tr></table><p><INPUT TYPE=\"submit\" VALUE=\"Send Meddelelse\"></INPUT></FORM><P>
<%
End Sub
Sub Send
sPunterFriend = Request.Form(\"name\")
sPunterEmail = Request.Form(\"uemail\")
fName = Request.Form(\"fname\")
femail= Request.Form(\"email\")
Message = Request.Form(\"message\")
sSubject = \"Check out all this Free Stuff\"
sMessage = \"Hej \" & fName & vbcrlf _
& \"Vi har modtaget en meddelelse fra din ven\" & sPunterFriend & \" ( \" & sPunterEmail & \" ) som skriver:\" & vbcrlf _
& vbcrlf _
& Message & vbcrlf _
& vbcrlf _
& \"______________________________________________________ \" & vbcrlf _
& EmailFooter1 & vbcrlf _
& EmailFooter2 & vbcrlf _
& EmailFooter3 & vbcrlf
Set objNewMail = CreateObject(\"CDONTS.NewMail\")
objNewMail.Send sPunterEmail, femail, EmailSubject, sMessage
Set objNewMail = Nothing
If WebmasterMail=\"YES\" then
Set objNewMail = CreateObject(\"CDONTS.NewMail\")
objNewMail.Send sPunterEmail, sYourEmail, EmailSubject, sMessage
Set objNewMail = Nothing
End IF
Response.Write sPunterEmail
End Sub
Dim Field
Dim dictFields
Set dictFields = Server.CreateObject(\"Scripting.Dictionary\")
For Each Field in Request.Form
If ValidateField(Request.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If Request.Form.Count <> 0 And dictFields.Count = 0 Then
%>
<p><b>Din meddelelse er blevet mailet!<br>Den blev sendt til:<p></b>
<%
Call Send
%>
<p><b><i>Tak fordi du anbefalede os.</i></b><br>
<%
Else
ShowFormField(\"Bert\")
End If
%>
<!--#include file=\"footerinc.asp\"-->
