Malinglist koder
Jeg har et problem med den mailing list som jeg har rodet med. listen er lavet sådan at man under opsætningen skal skrive hvilke side den skal linke til når folk er færdige med at registere sig, og det bliver anført i db'en. Men siden vil kun linke sådan www.domane.dk/malinglist/filen.asp i stedet for www.domane.dk/filen.aspEr der nogen som vil hjælpe mig med at få det til at virke?
-----------------------------------
<%
Dim useraction
Dim Email
Dim Action
Dim SQL
Email = lcase(request.form("Email"))
useraction = request.form("Join_Quit")
set RS = server.createobject("adodb.recordset")
SQL = "SELECT * FROM List WHERE Email = '" & Email & "'"
RS.open SQL, conn, 2, 2
If (request("Email") = "") Then
Action = "Invalid Email Address. Please Try again."
Else
select case useraction
case "Join"
if RS.bof and RS.eof then
RS.addnew
RS("Email") = request("Email")
RS("Name_Last") = request("Name_Last")
RS("Name_First") = request("Name_First")
RS("Date_In") = Date
RS.update
Action = "Thank you for joining."
else
Action = "You are already a member."
end if
case "Quit"
if RS.bof and RS.eof then
Action = "You are not member."
else
sql2="DELETE FROM List WHERE Email = '" & Email & "'"
conn.execute(sql2)
Action = "You have been removed."
end if
end select
End If
RS.close
set RS = nothing
%>
<html>
<head>
<title><%=RSBODY("List_Name")%></title>
<!--#include file="style.asp"-->
</head>
<body bgcolor="#F0F0F0" vlink="#48576C" link="#48576C" alink="#000000">
<br><br><br><br><br>
<table border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td bgcolor="#000000">
<table border="0" cellpadding="2" cellspacing="1" align="center">
<tr>
<td bgcolor="#52637B" align="center"><font face="Verdana" size="3" color="#FFCC00"><b><%=RSBODY("List_Name")%></b></font></td>
</tr>
<tr>
<td bgcolor="#B0C4DE">
<font face="Verdana" size="1">
<%=Action%>
<br><br>
<a href="<%=RSBODY("URL_Home")%>"><<<b> Return</b></a>
</font>
</tr>
</table>
</td>
</tr>
</table><br>
<center>
<font face="Verdana" size="1">Maintained with the <a href="http://scripts.ocean12tech.com">Ocean<i>12</i> ASP Mailing List Manager</a> v1.06<br>©2001-2002 <a href="http://scripts.ocean12tech.com">Ocean<i>12</i> Technologies</a>, all rights reserved.</font>
</center>
</body>
</html>
