Konstigt fel...

Hur ser SQLfrågan ut om man får fråga??

strSQL= "INSERT INTO g_book_data (Namn, Mail, Hemsida, Rubrik, Meddelande, Datum, Ipnummer) VALUES ('" & Replace(Replace(namn, "'", "''"), "&", "och") & "', '" & e_mail & "', '" & web_site & "', '" & Replace(Replace(rubrik, "'", "''"), "&", "och") & "', '" & Replace(Replace(meddelande, "'", "''"), "&", "och") & "', '" & Replace(datum, "'", "''") & "', '" & Replace(ipadress, "'", "''") & "');"

Filter för epost och hemsida ser ut:

Dim epostfilter, kolla

SET epostfilter = new RegExp
    epostfilter.Pattern = "^[a-z0-9.-_]{1,20}@[a-z0-9.-_]{1,20}.[a-z]{2,4}$"
	kolla = epostfilter.test(email) 

--------------------------------

IF  kolla <> TRUE THEN   
		e_mail = "   [ Ingen Email ]   "
ELSE
        e_mail = "   [<a href='mailto:" & email & "'> Mail </a>]   "
END IF

...och för hemsida:

if left(hemsida, 11) = "http://www." then 
web_site = "   [<a href='" & hemsida & "' target='_blank'> Hemsida </a>]   " 
end if 

if left(hemsida, 4) = "www." then 
web_site = "   [<a href='http://" & hemsida & "' target='_blank'> Hemsida </a>]   "
end if 

if not instr(hemsida, ".") >0 then
web_site = "   [ Ingen Hemsida ]   "
end if

Kan va till ngn hjälp kanske...

Det är nog för att du skickar in enkelfnuttar i kolumnen "hemsida".
Varför html-kod i databasen överhuvud taget?

Du måste köra
Replace(str,"'","''")
på alla värden!

ok, det är alltså det som strular.... Ska kolla tack sålänge

JA,d et var det.

Men nu funkar inte mailfiltret.

Kan ngn svar på varför?=!

Koden för denna har ni däruppe

Tack

Gör en funktion i stället:

<%
Function Fix(str)
str = Replace(str,"'","''")
str = Replace(str,"|","||")
Fix = str
End Function

Fix(namn) & Fix(Mail) & Fix(Hemsida) osv..
%>

Varför hålla på och krångla med ett mailfilter? Jag tycker det duger bra med att kontrollera att det innehåller ett @.

If InStr(strMail,"@") <> 0 Then

Jo, tack, men det skumma är att det jag har funkade, men sen inte... det som är ännu mer skumt är att jag inte ändrat det p å ngt sätt...

Ibland ångrar man att man överhuvudtaget fanns...

Eller nä, så är det väl inte, men just i detta tillfälle så känner jag mig jälvigt dum (Ja, ni får hålla med).

Felet var mitt.

Jag hade inte ändrat ngt koden, men Gästboken är Flashbaserad, felet var att jag tilldelat inputrutan för email variabelnamnet "email", när det skulle vara "mail".

Så ibland är felet väldigt lätt, även fast man till en början tycker det är jävligt svårt...

Tack för all hjälp

Detta borde du kunna byta ut:

if left(hemsida, 11) = "http://www." then 
web_site = "   [<a href='" & hemsida & "' target='_blank'> Hemsida </a>]   " 
end if 

if left(hemsida, 4) = "www." then 
web_site = "   [<a href='http://" & hemsida & "' target='_blank'> Hemsida </a>]   "
end if

till:

web_site = "[<a href='http://" & replace(hemsida,"http://","") & "' target='_blank'> Hemsida </a>]

Lite mindre if-satser

Jag tycker ändå att du ska skippa htmlkod i databasen och använda länkfunktionerna när du skriver ut.
Blir bra mycket större risk för fel med en sådan där lösning.

Jo, har ändrat det, gjorde det strax efter jag klistrat in koden här.

I filen för LÄSNING av boken skickar jag med htmltaggarna in i flash.

Tack för tipsen