---

Hej alle.

Jeg skal lige høre, om det er tilladt a vedhæfte asp filer her i
nyhedsgruppen,
og om det er muligt, at jeg kan få en eller anden haj til at hjælpe med
noget,
som sikkert er ganske simpelt for Jer, men som jeg ikke har en stand forskid
på.

Det drejer sig om et gæstebogs-script.

Hvis der i en form med et url felt (value="http://") ikke bliver skrevet
noget,
dvs. at feltet kun indeholder "http://", så vil jeg gerne ha' skidtet til
ikke at indsætte nogen url i det respektive recordset, så url indeholder ""
når gæstebogen bliver hentet.

Sikkert et lamt spørgsmål, men jeg fatter lidt minus


Håber at nogen har lidt tid tilovers.



Venlig hilsen,
LeifStyle - www.hardon.dk

---

On Fri, 8 Feb 2002 14:25:58 +0100, "LeifStyle" <news@hardon.dk> wrote:

>Jeg skal lige høre, om det er tilladt a vedhæfte asp filer her i
>nyhedsgruppen,

Nej - ikke vedhæftede, men du kan jo altid kopiere relevante dele af
en tekst ind i din posting.

<SNIP>
>Hvis der i en form med et url felt (value="http://") ikke bliver skrevet
>noget,
>dvs. at feltet kun indeholder "http://", så vil jeg gerne ha' skidtet til
>ikke at indsætte nogen url i det respektive recordset, så url indeholder ""
>når gæstebogen bliver hentet.

If IsNull(value) Or Trim(value) = "" Then
' Udskriv ikke noget
Else
' Udskriv
End If

(Et tomt database-felt har værdien Null)

Good luck,
Jørn

---

Jeg har bikset lidt frem og tilbage.
Og jeg kom frem til noget, som jeg egentligt troede ville virke,
men jeg fik denne fejl:

---------
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/stoneystone/gb/guestbook_new.asp, line 385
Wend
-------

Nederst i følgende kode, er markeret den line (385)
som angiveligt skulle indeholde en fejl

Er der nogen der kan se en feler i koden?


På forhnd tak

Venlig hilsen,
LeifStyle

--------


<%
While ((Repeat1__numRows <> 0) AND (NOT rsGuestbook.EOF))
%>

<table border="0" width="500">
<tr>
<td width="20%" valign="top"><b><font face="Verdana, Arial,
Helvetica, sans-serif" size="2">Message:</font></b></td>
<td valign="top"><font face="Verdana, Arial, Helvetica,
sans-serif"
size="2"><%=(rsGuestbook.Fields.Item("Besked").Value)%></font></td>
</tr>
<tr>
<td width="20%"><b><font face="Verdana, Arial, Helvetica,
sans-serif" size="2">From:</font></b></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif"
size="2"><%=(rsGuestbook.Fields.Item("Navn").Value)%></font></td>
</tr>
<tr>
<td width="20%"><b><font face="Verdana, Arial, Helvetica,
sans-serif" size="2">E-mail:</font></b></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a
href="mailto:<%=(rsGuestbook.Fields.Item("email").Value)%>"><%=(rsGuestbook.
Fields.Item("email").Value)%></a></font></td>
</tr>

'Min improviserede URL check - Er der noget galt her?
<%
strURL = (rsGuestbook.Fields.Item("url").Value)
If strURL<>"" Then
If Left(LCase(strURL),7)<>"http://" Then
strURL="http://" & strURL
%>

<tr>
<td width="20%"><b><font face="Verdana, Arial, Helvetica,
sans-serif" size="2">URL:</font></b></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a
href="<%=strURL%>" target="_blank"><%=strURL%></a></font></td>
</tr>


<% End If %>



<tr>
<td width="20%"><b><font face="Verdana, Arial, Helvetica,
sans-serif" size="2">Date:</font></b></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif"
size="2"><%= DoDateTime((rsGuestbook.Fields.Item("Dato").Value), 1, 4105)
%></font></td>
</tr>
<tr>
<td colspan="2">
<hr noshade size="1" color="#FFFFFF">
</td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsGuestbook.MoveNext()
Wend <------------------------------------------------ linie 385
%>

---

"LeifStyle" <news@hardon.dk> wrote in message
news:3c63d2b8$0$214$ba624c82@nntp03.dk.telia.net...
> Hvis der i en form med et url felt (value="http://") ikke bliver skrevet
> noget,
> dvs. at feltet kun indeholder "http://", så vil jeg gerne ha' skidtet til
> ikke at indsætte nogen url i det respektive recordset, så url indeholder
""
> når gæstebogen bliver hentet.

Når du indsætter gør du sådan her:

If Request( "url" ) = "http://" Then
strURL = ""
Else
strURL = Request( "url" )
End if

'Og så indsæt strURL i databasen..

--
Jakob Andersen

---

Hej Jakob.

Tak for det - Det virker nu



LeifStyle



"Jakob Andersen" <jakob@effectus.dk> skrev i en meddelelse
news:a438pi$6h0$1@sunsite.dk...
> "LeifStyle" <news@hardon.dk> wrote in message
> news:3c63d2b8$0$214$ba624c82@nntp03.dk.telia.net...
> > Hvis der i en form med et url felt (value="http://") ikke bliver skrevet
> > noget,
> > dvs. at feltet kun indeholder "http://", så vil jeg gerne ha' skidtet
til
> > ikke at indsætte nogen url i det respektive recordset, så url indeholder
> ""
> > når gæstebogen bliver hentet.
>
> Når du indsætter gør du sådan her:
>
> If Request( "url" ) = "http://" Then
> strURL = ""
> Else
> strURL = Request( "url" )
> End if
>
> 'Og så indsæt strURL i databasen..
>
> --
> Jakob Andersen
>
>