gästboksfråga!

Hej,

Ursäkta den långa koden men jag visste inte vilken del jag skulle posta! Ok, problemet är att jag vill att mail adresserna bara ska bli länkade om man skrivit dit sin e-mail, nu så blir det "mailto:" och namnet blir en länk även om besökaren inte skrivit något?

Kod:
-------------------------------------------------------

<%Response.Buffer = True%>
<!-- #include file="files/installning.asp" -->
<!-- #include file="files/link.asp" -->

<%Function FixaTecken(str)
FixaTecken = Replace(Trim(str),"'","''")
End function

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

If Request.Querystring("do")= "" Then%>
<table border="0" width="421">
<form method="post" action="guestbook.asp?do=add" name="gastbok" onSubmit="return GbIn()">
<tr>
<td>det finns
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db/guestbook.mdb")
entries = "Select Count(*) From inlagg"
Set poster = Connect.Execute(entries)
Response.Write poster(0)
poster.Close
Set Poster = Nothing
%>
inlägg i gästboken</td>
</tr>
<tr>
<td><a href="admin.asp" target="_blank"><img src="graphic/guestname.gif" width="32" height="11" border="0"></a><br>
<input type="text" name="namn" size="40">
</td>
</tr>
<tr>
<td>
<div align="left"> <img src="graphic/guestmail.gif" width="33" height="13"><br>
<input type="text" name="email" size="40">
</div>
</td>
</tr>
<tr>
<td>
<div align="left"> <img src="graphic/guestpage.gif" width="44" height="11"><br>
<input type="text" name="hemsida" size="40">
</div>
</td>
</tr>
<tr>
<td height="19" valign="top">
<div align="left"> <img src="graphic/guestmess.gif" width="64" height="11"><br>
<textarea name="Meddelande" cols="80" rows="10"></textarea>
</div>
</td>
</tr>
<tr>
<td valign="top">
<input type="image" border="0" name="Posta inlägg" src="graphic/guestok.gif" width="33" height="13">
</td>
</tr>
</form>
</table>

<table border="0" width="421" cellpadding="2" cellspacing="0">
<%Set Recset = Server.CreateObject("ADODB.Recordset")

Const gbaps = 100
Sidan = Request.QueryString("page")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If

With RecSet
.CursorLocation = 3
.CacheSize = gbaps
End With

SQL = "Select * From inlagg Order By datum desc"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>
<tr><td><i>Inget har skrivit i gästboken.</i></td></tr>
<%Else

With RecSet
.MoveFirst
.PageSize = gbaps
.AbsolutePage = sida
End With

Sidor = RecSet.PageCount

If Sidor > 1 Then%>
<tr> <td valign="top"> </td></tr>
<%End If

X = 0
Do While Not RecSet.EOF And X < RecSet.PageSize%>
<tr>
<td><img src="graphic/dot2.gif" width="421" height="1"></td>
</tr>
<%If Recset("Email") <> "" Then%>
<tr>

<td background="graphic/bg.gif">
<a href="mailto:<%=Recset("Email")%>"><%=Recset("Namn")%></a> |
<%=FormatDateTime(Recset("Datum"),4)%> |
<%=FormatDateTime(Recset("Datum"),2)%> |
<a href="http://www.leissner.se/cgi/whois?text=\<%=Recset("ip")%>&c=eu" target="blank"><%=Recset("ip")%></a> |

<%If RecSet("Hemsida") <> "" Then%>
<a href="<%=RecSet("Hemsida")%>" target="_blank"><%=Mid(RecSet("Hemsida"),8,50)%></a>
<%End If%>
</td>
</tr>
<tr>
<td><img src="graphic/dot2.gif" width="421" height="1"></td>
</tr>

<%Else%>

<tr>
<td background="graphic/bg.gif">
<a href="mailto:<%=Recset("Email")%>"><%=Recset("Namn")%></a> |
<%=FormatDateTime(Recset("Datum"),4)%> |
<%=FormatDateTime(Recset("Datum"),2)%> |
<a href="http://www.leissner.se/cgi/whois?text=\<%=Recset("ip")%>&c=eu" target="blank"><%=Recset("ip")%></a> |

<%If RecSet("Hemsida") <> "" Then%>
<a href="<%=RecSet("Hemsida")%>" target="_blank"><%=Mid(RecSet("Hemsida"),8,50)%></a>
<%End If%>
</td>
</tr>
<tr>

<td><img src="graphic/dot2.gif" width="421" height="1"></td>
</tr>
<%End If%>
<tr>
<td><%=FixaLankar(RecSet("Meddelande"))%></td>
</tr>
<%If Recset("svar") <> "" Then%>
<tr>
<td> </td>
</tr>
<tr>
<td><font color="#FF0099">melody club:</font><b> </b><i><%=Replace(RecSet("svar"), vbCrLf, "<br>")%></i></td>
</tr>
<%End If%>
<%X = X+ 1
Recset.MoveNext
Loop
If Sidor > 1 Then%>
<tr>
<td><img src="graphic/dot2.gif" width="421" height="1"></td>
</tr><tr>
<td valign="top">
<%For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%>
<font color="#33ccff"><%=Sid%></font>
<%Else%>
<a href="default.asp?category=guestbook&page=<%=Sid%>"><%=Sid%></a>
<%End If
Next%>
</td>
</tr>
</table>
<%End If
Recset.Close
Set Recset = Nothing
End If

End If
If Request.QueryString("do")= "add" Then

Namn = Request.Form("namn")
Email = Request.Form("email")
Hemsida = Request.Form("hemsida")
Meddelande = FixaTecken(Request.Form("meddelande"))
Ip = Request.Servervariables("REMOTE_ADDR")

If Hemsida <> "" Then
If Left(Hemsida,7) = "http://" Then
Hemsida = Hemsida
Else
Hemsida = "http://" & Hemsida
End If
End If

Conn.Execute("Insert Into inlagg(Namn, Email, Hemsida, Meddelande,ip) Values('"& Namn &"','"& Email &"','"& Hemsida &"','"&Meddelande &"','"& Ip &"')")

Conn.Close
Set Conn = Nothing

Response.Redirect "default.asp?category=guestbook"

End If%>
-------------------------------------------------------

Mvh Erik