Sammenfletning af mailform og handler

<form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME") %>?send=nu" method="post">
<span class="mailform">name</span>
<br>
<input name="name" type="text" style="width:185px;" maxlength="75" id="input" value="<%=request.querystring("sSender") %>" size="20"><br>
<br>
<span class="mailform"><email></span><br>
<input name="email" type="text" style="width:185px;" maxlength="75" id="input" value="<%=request.querystring("sMail") %>" size="20"><br>
<br>
<span class="mailform"><Subject></span><br>
<input name="subject" type="text" style="width:185px;" maxlength="75" id="input" value="<%=request.querystring("sSubject") %>" size="20"><br>
<br>
<span class="mailform"><Message></span><br>
<textarea name="body" style="width:185px;" rows="7" id="input" cols="20"><%= request.querystring("sBody") %></textarea><br>
<br>
<input type="image" onMouseOver="this.src='images/ok2.gif';" onMouseOut="this.src='images/ok.gif';" src="images/ok.gif" onfocus="this.blur( )" border="0" width="30" height="23">
</form> 



<%
If Request.QueryString("send") = "nu" Then
Dim sprog, Sendername, Senderemail, Subject, Recipient, Body

Sendername=Request.Form("name")
Senderemail=Request.Form("email")
Subject=Request.Form("subject")
Recipient = "information@theselfimages.com"
Body=Request.Form("body")

'Tjekker om der er indhold i formularens felter
IF Sendername = "" THEN
    Response.Redirect "mailformular.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Senderemail = "" THEN
    Response.Redirect "mailformular.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Instr(1, Senderemail, "@") = 0 THEN
    Response.Redirect "mailformular.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Subject = "" THEN
    Response.Redirect "mailformular.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Body = "" THEN
    Response.Redirect "mailformular.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Trim(Body) = "" THEN
    Response.Redirect "mailformular.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF


Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.theselfimages.com"
JMail.Sendername = Sendername
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
End If
%>

//>Rune

Jeg kører i forvejen noget ASP og DB på den side hvor mailformularen ligger. Skal nestående kode (DIM) derfor også sammenflettes med DIM for selve mailhandleren, eller kan begge ligge på samme side uden at konflikte med hinanden?


<%Option Explicit%>
<%
'Declare variables (for speed)
Dim i, language,  page, category, altLanguage, altImage, altTsi, altShowroom, altContact, altBack, altFront, altPrint, altName, altEmail, altSubject, altMessage
Dim Conn, rs, DSN, strSQL
Dim NewsFound, noNewsString
Dim ReadMoreText

'Set session timeout (in minutes)
Session.TimeOut = 40

'Get language from querystring (URL)
language = lcase(Request.QueryString("language"))
page = lcase(Request.QueryString("page"))
category = lcase(Request.QueryString("category"))

Hmm.. det skal det nok. Det virker i hvert fald ikke på din måde.
Nedenstående er AL den asp kode der i forvejen kører på siden.
Mailformularen og mailhandler skal derfor integreres i dette, så
jeg stadig undgår at skulle 'linke' til en seperart side for mailhandleren ligger for sig selv.

<%Option Explicit%>
<%
'Declare variables (for speed)
Dim i, language,  page, category, altLanguage, altImage, altTsi, altShowroom, altContact, altBack, altFront, altPrint, altName, altEmail, altSubject, altMessage
Dim Conn, rs, DSN, strSQL
Dim NewsFound, noNewsString
Dim ReadMoreText

'Set session timeout (in minutes)
Session.TimeOut = 40

'Get language from querystring (URL)
language = lcase(Request.QueryString("language"))
page = lcase(Request.QueryString("page"))
category = lcase(Request.QueryString("category"))

'Assign values to local variables based on language
If language = "uk" Then
  altLanguage = "Dansk"
  altImage = "dk"
  altTsi = "The Self Images"
  altShowroom = "Showroom"
  altContact = "Contact"
  altBack  = "Back"
  altFront = "Front"
  altPrint = "Print"
  altName = "Name"
  altEmail = "Your email address"
  altSubject = "Subject"
  altMessage = "Message"
 
Else
  altLanguage = "English"
  altImage = "uk"
  altTsi = "The Self Images"
  altShowroom = "Showroom"
  altContact = "Kontakt"
  altBack  = "Tilbage"
  altFront = "Forsiden"
  altPrint = "Print"
  altName = "Navn"
  altEmail = "Email adresse"
  altSubject = "Emne"
  altMessage = "Besked"

End If
%>

DET BRUGES LÆNGERE NEDE PÅ SIDEN:

<%
'Create database connection object
Set Conn = Server.CreateObject("ADODB.Connection")
'Create database connection string
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
'Open connection to database
Conn.Open(DSN)
                 
' SQL forespørgsel
strSQL = "Select * From PAGE WHERE pageID = " & page & " AND language = '" & language & "' AND categoryID = " & category
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

While Not rs.EOF
%>
                               
<!-- Images og andet på venstre del af contact.asp indsættes her -->
<%=rs("images")%></td>
               
<td valign="top"><img border="0" src="images/adjust.gif" width="190" height="1"><br>
             
<!-- Overskrift for aktuel artikel på højre del af siden -->
<span class="tekst"><span class="overskrift"><%=rs("heading")%></span><br>
<br>

<!-- Content: Mailformular -->
<form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME") %>?submit=ok" method="post">
<span class="mailform"><%=altName%></span>
<br>
<input name="name" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSender") %>" size="20"><br>
<br>
<span class="mailform"><%=altEmail%></span><br>
<input name="email" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sMail") %>" size="20"><br>
<br>
<span class="mailform"><%=altSubject%></span><br>
<input name="subject" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSubject") %>" size="20"><br>
               
<br>
<span class="mailform"><%=altMessage%></span><br>
<textarea name="body" style="width:185px;" rows="7" id="input" cols="20"><%= request.querystring("sBody") %></textarea><br>
<br>
<input type="image" onMouseOver="this.src='images/ok2.gif';" onMouseOut="this.src='images/ok.gif';" src="images/ok.gif" onfocus="this.blur( )" border="0" width="30" height="23">
</form>               
         
<%
rs.movenext
Wend
%>   
</td>
</tr>
</table>

<% ' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>

</html>

Jeg satte dine ændringer i mailhandleren ind på siden og ændrede blot
send=nu => submit=ok

Vil det sige at det virker nu?

//>Rune

Nej.. det var blot til orintering for dit vedkommende.
Problemet er stadig dette: 13/10-2002 20:08:00

Så prøv lgie med denne:

<%Option Explicit%>
<%
'Declare variables (for speed)
Dim i, language,  page, category, altLanguage, altImage, altTsi, altShowroom, altContact, altBack, altFront, altPrint, altName, altEmail, altSubject, altMessage
Dim Conn, rs, DSN, strSQL
Dim NewsFound, noNewsString
Dim ReadMoreText

'Set session timeout (in minutes)
Session.TimeOut = 40

If Request.QueryString("submit") = "ok" Then
    'Get language from querystring (URL)
    language = lcase(Request.QueryString("language"))
    page = lcase(Request.QueryString("page"))
    category = lcase(Request.QueryString("category"))

    'Assign values to local variables based on language
    If language = "uk" Then
      altLanguage = "Dansk"
      altImage = "dk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Contact"
      altBack  = "Back"
      altFront = "Front"
      altPrint = "Print"
      altName = "Name"
      altEmail = "Your email address"
      altSubject = "Subject"
      altMessage = "Message"
     
    Else
      altLanguage = "English"
      altImage = "uk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Kontakt"
      altBack  = "Tilbage"
      altFront = "Forsiden"
      altPrint = "Print"
      altName = "Navn"
      altEmail = "Email adresse"
      altSubject = "Emne"
      altMessage = "Besked"

    End If
End If
%>



<%
'Create database connection object
Set Conn = Server.CreateObject("ADODB.Connection")
'Create database connection string
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
'Open connection to database
Conn.Open(DSN)
                 
' SQL forespørgsel
strSQL = "Select * From PAGE WHERE pageID = " & page & " AND language = '" & language & "' AND categoryID = " & category
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

While Not rs.EOF
%>
                               
<!-- Images og andet på venstre del af contact.asp indsættes her -->
<%=rs("images")%></td>
               
<td valign="top"><img border="0" src="images/adjust.gif" width="190" height="1"><br>
             
<!-- Overskrift for aktuel artikel på højre del af siden -->
<span class="tekst"><span class="overskrift"><%=rs("heading")%></span><br>
<br>

<!-- Content: Mailformular -->
<form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME") %>?submit=ok" method="post">
<span class="mailform"><%=altName%></span>
<br>
<input name="name" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSender") %>" size="20"><br>
<br>
<span class="mailform"><%=altEmail%></span><br>
<input name="email" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sMail") %>" size="20"><br>
<br>
<span class="mailform"><%=altSubject%></span><br>
<input name="subject" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSubject") %>" size="20"><br>
               
<br>
<span class="mailform"><%=altMessage%></span><br>
<textarea name="body" style="width:185px;" rows="7" id="input" cols="20"><%= request.querystring("sBody") %></textarea><br>
<br>
<input type="image" onMouseOver="this.src='images/ok2.gif';" onMouseOut="this.src='images/ok.gif';" src="images/ok.gif" onfocus="this.blur( )" border="0" width="30" height="23">
</form>               
         
<%
rs.movenext
Wend
%>   
</td>
</tr>
</table>

<% ' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>

</html>

//>Rune

Nope.. no go! Den konflikter et eller andet sted med denne linie:
<form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME") %>?submit=ok" method="post">

Jeg kan slet ikke se siden. Error on page

<form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>?submit=ok" method="post">

agh! -Det må du undskylde.. Jeg havde glemt en parantes ) ;o)

//>Rune

Hmm stadig ikke.. Jeg får en:

The page cannot be displayed

Vil du se den komplette kode for siden?

Det er denne der problemer med:
If Request.QueryString("submit") = "ok" Then

Jeg får denne fejl. Problemet er lokaliseret...

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/contact.asp, line 250

Jamen så sætter du det jo ikke ind som jeg har skrevet! -Den fejl der opstår nu, er pga. du mangler at afslutte din If..Then betingelse!

//>Rune

Okay.. sorry min fejl. Men nu får jeg denne i stedet:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'pageID = AND language = '' AND categoryID ='.

/contact.asp, line 174

Nu er vi jo uden om dit oprindelige problem! -Det her har noget at gøre med at du ikke har noget data i din SQL forspørgelse!

og siden at du får den fejl (fejlen stammer fra længere nede af dokumentet) vil det sige at dit oprindelige problem er løst!

//>Rune

Men det problem er jo først opstået efter jeg har sat
dine ændringer ind i koden. Jeg har jo ikke mulighed
for at teste om noget virker så længe jeg har den fejl.

<%Option Explicit%>
<%
'Declare variables (for speed)
Dim i, language,  page, category, altLanguage, altImage, altTsi, altShowroom, altContact, altBack, altFront, altPrint, altName, altEmail, altSubject, altMessage
Dim Conn, rs, DSN, strSQL
Dim NewsFound, noNewsString
Dim ReadMoreText

'Set session timeout (in minutes)
Session.TimeOut = 40
    'Get language from querystring (URL)
    language = lcase(Request.QueryString("language"))
    page = lcase(Request.QueryString("page"))
    category = lcase(Request.QueryString("category"))

If Request.QueryString("submit") = "ok" Then

    'Assign values to local variables based on language
    If language = "uk" Then
      altLanguage = "Dansk"
      altImage = "dk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Contact"
      altBack  = "Back"
      altFront = "Front"
      altPrint = "Print"
      altName = "Name"
      altEmail = "Your email address"
      altSubject = "Subject"
      altMessage = "Message"
     
    Else
      altLanguage = "English"
      altImage = "uk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Kontakt"
      altBack  = "Tilbage"
      altFront = "Forsiden"
      altPrint = "Print"
      altName = "Navn"
      altEmail = "Email adresse"
      altSubject = "Emne"
      altMessage = "Besked"

    End If
End If
%>



<%
'Create database connection object
Set Conn = Server.CreateObject("ADODB.Connection")
'Create database connection string
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
'Open connection to database
Conn.Open(DSN)
                 
' SQL forespørgsel
strSQL = "Select * From PAGE WHERE pageID = " & page & " AND language = '" & language & "' AND categoryID = " & category
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

While Not rs.EOF
%>
                               
<!-- Images og andet på venstre del af contact.asp indsættes her -->
<%=rs("images")%></td>
               
<td valign="top"><img border="0" src="images/adjust.gif" width="190" height="1"><br>
             
<!-- Overskrift for aktuel artikel på højre del af siden -->
<span class="tekst"><span class="overskrift"><%=rs("heading")%></span><br>
<br>

<!-- Content: Mailformular -->
<form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>?submit=ok" method="post">
<span class="mailform"><%=altName%></span>
<br>
<input name="name" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSender") %>" size="20"><br>
<br>
<span class="mailform"><%=altEmail%></span><br>
<input name="email" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sMail") %>" size="20"><br>
<br>
<span class="mailform"><%=altSubject%></span><br>
<input name="subject" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSubject") %>" size="20"><br>
               
<br>
<span class="mailform"><%=altMessage%></span><br>
<textarea name="body" style="width:185px;" rows="7" id="input" cols="20"><%= request.querystring("sBody") %></textarea><br>
<br>
<input type="image" onMouseOver="this.src='images/ok2.gif';" onMouseOut="this.src='images/ok.gif';" src="images/ok.gif" onfocus="this.blur( )" border="0" width="30" height="23">
</form>               
         
<%
rs.movenext
Wend
%>   
</td>
</tr>
</table>

<% ' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>

</html>

Ak, jeg undskylder igen! -Det er mig der sover i timen her! -jeg var kommet til at indkabsle vaiablerne der bliver brugt til din SQL Query!

//>Rune

Hmm.. du har kun ændre fra de 2 END IF og opefter ikke?
Post venligst kun det du ændre i.

Men det er som om din If Request.QueryString("submit") = "ok" Then
nu forstyrer koden nedenunder denne linie?

Ups.. mon det er mig der fucket helt op i det nu?
Top ASP ned til HTML ser jo sådan her ud inkl. valideringscheck:

<%Option Explicit%>
<%
'Declare variables (for speed)
Dim i, language,  page, category, altLanguage, altImage, altTsi, altShowroom, altContact, altBack, altFront, altPrint, altName, altEmail, altSubject, altMessage
Dim Conn, rs, DSN, strSQL
Dim NewsFound, noNewsString
Dim ReadMoreText

'Set session timeout (in minutes)
Session.TimeOut = 40
    'Get language from querystring (URL)
    language = lcase(Request.QueryString("language"))
    page = lcase(Request.QueryString("page"))
    category = lcase(Request.QueryString("category"))

If Request.QueryString("submit") = "ok" Then
Dim sprog, Sendername, Senderemail, Subject, Recipient, Body

Sendername=Request.Form("name")
Senderemail=Request.Form("email")
Subject=Request.Form("subject")
Recipient = "information@theselfimages.com"
Body=Request.Form("body")

'Tjekker om der er indhold i formularens felter
IF Sendername = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Senderemail = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Instr(1, Senderemail, "@") = 0 THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Subject = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Body = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Trim(Body) = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF


Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.theselfimages.com"
JMail.Sendername = Sendername
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
End If

  'Assign values to local variables based on language
    If language = "uk" Then
      altLanguage = "Dansk"
      altImage = "dk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Contact"
      altBack  = "Back"
      altFront = "Front"
      altPrint = "Print"
      altName = "Name"
      altEmail = "Your email address"
      altSubject = "Subject"
      altMessage = "Message"
     
    Else
      altLanguage = "English"
      altImage = "uk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Kontakt"
      altBack  = "Tilbage"
      altFront = "Forsiden"
      altPrint = "Print"
      altName = "Navn"
      altEmail = "Email adresse"
      altSubject = "Emne"
      altMessage = "Besked"

    End If
End If
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>

Al koden for siden ligger her:
http://www.theselfimages.com/mailform problem.txt

Medions => har du mulighed for at hjælpe mig færdig med dette problem?

Jamen jeg kan sq ik' helt se hvad der er galt nu! -Hvad gør den galt, kommer den med en fejl eller?

//>Rune

Det er lidt svært at forklare, men prøv selv at se her.
http://www.theselfimages.com/contact.asp?language=uk&page=14&category=5

Der sættes værdier for language, page og categori for siden, men ved submit sker der en konflikt mellem at trække det indtastede i mailformularen videre via mailhandleren og så at returnerer med de rigtige værdier for at vise contact.asp siden igen... (sådan her: http://www.theselfimages.com/contact.asp?language=uk&page=14&category=5) Hvis altså sproget er sat til UK og ikke DK eller omvendet.

Prøv evt. at skifte sprog på DK eller UK knappen i venstre side. Alt dette virker fint, men det er ved selve submit der går noget galdt. Det virker heller ikke som om at validerings checket fungerer korrekt.

Det er fordi du ikek får overført dine parameter efter submit!

Prøv den her:

<%Option Explicit%>
<%
'Declare variables (for speed)
Dim i, language,  page, category, altLanguage, altImage, altTsi, altShowroom, altContact, altBack, altFront, altPrint, altName, altEmail, altSubject, altMessage
Dim Conn, rs, DSN, strSQL
Dim NewsFound, noNewsString
Dim ReadMoreText

'Set session timeout (in minutes)
Session.TimeOut = 40

'Get language from querystring (URL)
language = lcase(Request.QueryString("language"))
page = lcase(Request.QueryString("page"))
category = lcase(Request.QueryString("category"))

  'Assign values to local variables based on language
    If language = "uk" Then
      altLanguage = "Dansk"
      altImage = "dk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Contact"
      altBack  = "Back"
      altFront = "Front"
      altPrint = "Print"
      altName = "Name"
      altEmail = "Your email address"
      altSubject = "Subject"
      altMessage = "Message"
     
    Else
      altLanguage = "English"
      altImage = "uk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Kontakt"
      altBack  = "Tilbage"
      altFront = "Forsiden"
      altPrint = "Print"
      altName = "Navn"
      altEmail = "Email adresse"
      altSubject = "Emne"
      altMessage = "Besked"
 
   

If Request.QueryString("submit") = "ok" Then

Dim sprog, Sendername, Senderemail, Subject, Recipient, Body

Sendername=Request.Form("name")
Senderemail=Request.Form("email")
Subject=Request.Form("subject")
Recipient = "information@theselfimages.com"
Body=Request.Form("body")

'Tjekker om der er indhold i formularens felter
IF Sendername = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Senderemail = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Instr(1, Senderemail, "@") = 0 THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Subject = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Body = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Trim(Body) = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF


Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.theselfimages.com"
JMail.Sendername = Sendername
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute


  End If
End If
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>The Self Images</title>
<meta NAME="Title" CONTENT="The Self Images">
<link rel="stylesheet" href="stylesheets/pagestyle.css">
<link rel="stylesheet" href="stylesheets/menustyle.css">
<META HTTP-EQUIV="content-type" CONTENT="text/html; charset=iso-8859-1">

<script language="JavaScript">
<!--
if (document.images) {

  img1_on = new Image();
  img1_on.src = "images/uk/tsi2.gif";
  img1_off = new Image();
  img1_off.src = "images/uk/tsi.gif";
 
  img2_on = new Image();
  img2_on.src = "images/uk/showroom2.gif";
  img2_off = new Image();
  img2_off.src = "images/uk/showroom.gif";
 
  img3_on = new Image();
  img3_on.src = "images/<%=language%>/contact2.gif";
  img3_off = new Image();
  img3_off.src = "images/<%=language%>/contact.gif";
 
}

var  iNavn = "";

function ms( imagename, action ) {
  if ( !document.images || iNavn == imagename ) return;
  if ( 'fix' == action ) {
      if ( iNavn != "" ) {
          temp = iNavn;
          iNavn = "";
          ms( temp, 'off' );
      }
      iNavn = imagename;
  } else
      document.images[imagename].src = window[ imagename +'_' +action ].src;
  }

// -->
</script>

<script language="JavaScript">

<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+''
win = window.open(mypage, myname, winprops+',toolbar=yes');
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
//  End -->
</script>
</head>

<body bgcolor="#333333" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table border="0" cellspacing="0" cellpadding="0" width="100%" height="100%">
  <tr>
    <td valign="top">
    <div align="center">
      <center>
      <table border="0" cellspacing="0" cellpadding="0" width="770">
        <tr>
          <td colspan="2"><img border="0" src="images/topbar2.gif"></td>
        </tr>
        <tr>
        <td>
         
          <img border="0" src="images/adjust.gif" width="11" height="1"><img border="0" src="images/frame.gif" width="13" height="12">
          <img border="0" src="images/adjust.gif" width="50" height="1"> <a href="#" onfocus="this.blur();" onMouseOver="ms('img1', 'on')" onMouseOut="ms('img1', 'off')" onClick="ms('img1', 'fix');parent.topright.location='../blank.asp'; parent.menubund.location='../shadow.asp'; parent.midt.location='../indhold/news1.asp'; return false;">
         
          <a href="#" onfocus="this.blur();" onMouseOver="ms('img1', 'on')" onMouseOut="ms('img1', 'off')" onClick="ms('img1', 'fix');location='page.asp?category=3&page=3&language=<%=language%>'; return false;">
          <img name="img1" src="images/uk/tsi.gif" alt="<%=altTsi%>" border="0" width="98" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
         
          <a href="#" onfocus="this.blur();" onMouseOver="ms('img2', 'on')" onMouseOut="ms('img2', 'off')" onClick="ms('img2', 'fix');location='page.asp?category=4&page=11&language=<%=language%>'; return false;">
          <img name="img2" src="images/uk/showroom.gif" alt="<%=altShowroom%>" border="0" width="72" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
         
          <a href="#" onfocus="this.blur();" onMouseOver="ms('img3', 'on')" onMouseOut="ms('img3', 'off')" onClick="ms('img3', 'fix');location='contact.asp?category=5&page=14&language=<%=language%>'; return false;">
          <img name="img3" src="images/<%=language%>/contact.gif" alt="<%=altContact%>" border="0" width="56" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1"></td>
          <td><img border="0" src="images/adjust.gif" width="1" height="29"></td>
        </tr>
        <tr>
          <td bgcolor="#FFFFFF" background="images/optionbar2.gif">

          <img border="0" src="images/adjust.gif" width="1" height="1"><a href="contact.asp?language=<%=altImage%>&page=<%=page%>&category=<%=category%>" onfocus="this.blur();">
          <img src="images/<%=altImage%>.gif" alt="<%=altLanguage%>" border="0"></a>
         
          <img border="0" src="images/adjust.gif" width="325" height="1"><a href="java script:history.back(-1);" onfocus="this.blur();"><img border="0" src="images/<%=language%>/back.gif" alt="<%=altBack%>"></a>
          <img border="0" src="images/adjust.gif" width="10" height="1"><a href="front.asp?language=<%=language%>" onfocus="this.blur();"><img border="0" src="images/<%=language%>/front.gif" alt="<%=altFront%>"></a>
          <img border="0" src="images/adjust.gif" width="10" height="1"><a href="#" onfocus="this.blur();"><img border="0" src="images/<%=language%>/print.gif" alt="<%=altPrint%>"></a><br>
          <img border="0" src="images/adjust.gif" width="550" height="7"></td>
          <td bgcolor="#F1F1F1"><img border="0" src="images/logo2.gif"></td>
        </tr>
        </table>
      <table border="0" cellspacing="0" cellpadding="0" width="770" style="height:100%">
        <tr>
          <td valign="top" bgcolor="#FFFFFF"><img border="0" src="images/adjust.gif" width="550" height="1"><br>
          <div align="center">
            <center>
            <table border="0" cellspacing="0" cellpadding="0" width="500" style="height:100%">
              <tr>
                <td valign="top"><img border="0" src="images/adjust.gif" width="310" height="30"><br>

<%
'Create database connection object
Set Conn = Server.CreateObject("ADODB.Connection")
'Create database connection string
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
'Open connection to database
Conn.Open(DSN)
                 
' SQL forespørgsel
strSQL = "Select * From PAGE WHERE pageID = " & page & " AND language = '" & language & "' AND categoryID = " & category
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

While Not rs.EOF
%>
                               
<!-- Images og andet på venstre del af contact.asp indsættes her -->
                  <%=rs("images")%></td>
               
                  <td valign="top"><img border="0" src="images/adjust.gif" width="190" height="1"><br>
             
<!-- Overskrift for aktuel artikel på højre del af siden -->
                  <span class="tekst"><span class="overskrift"><%=rs("heading")%></span><br>
                  <br>

<!-- Content: Mailformular -->
                  <form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>?submit=ok&language=<%= language%>&categoryID=<%= categoryID %>&page=<%= page %>" method="post">
                  <span class="mailform"><%=altName%></span>
                  <br>
                  <input name="name" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSender") %>" size="20"><br>
                  <br>
                  <span class="mailform"><%=altEmail%></span><br>
                  <input name="email" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sMail") %>" size="20"><br>
                  <br>
                  <span class="mailform"><%=altSubject%></span><br>
                  <input name="subject" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSubject") %>" size="20"><br>
                  <br>
                  <span class="mailform"><%=altMessage%></span><br>
                  <textarea name="body" style="width:185px;" rows="7" id="input" cols="20"><%= request.querystring("sBody") %></textarea><br>
                  <br>
                  <input type="image" onMouseOver="this.src='images/ok2.gif';" onMouseOut="this.src='images/ok.gif';" src="images/ok.gif" onfocus="this.blur( )" border="0" width="30" height="23">
                  </form>                 
             
              </td>
              </tr>
            </table>
            </center>
          </div>
          </td>
          <td valign="top" background="images/border.gif" bgcolor="#F1F1F1"><img border="0" src="images/adjust.gif" width="5" height="465"></td>
          <td valign="top" bgcolor="#F1F1F1" background="images/right2.gif"><img border="0" src="images/adjust.gif" width="215" height="1"><br>
          <div align="center">
            <center>
            <table border="0" cellspacing="0" cellpadding="0" width="180" style="height:100%">
              <tr>
                <td valign="top" bgcolor="#F1F1F1">
               
<!-- Kategorisk overskrift for menupunkter -->
                <span class="menu"><span class="menuheadline"><%=rs("menuheadline")%></span>
                <br>
                <br>

<!-- Menupunkter -->
                <a href="page.asp?category=3&page=3&language=<%=language%>">Profile Test</a><br><br>
                <a href="page.asp?category=3&page=4&language=<%=language%>">Curriculum Vitae</a><br><br>
               
                </span>
               
                <%
                rs.movenext
                Wend
                %> 
                             
              </td>
              </tr>
            </table>
            </center>
          </div>
          </td>
        </tr>
      </table>
      </center>
    </div>
    </td>
  </tr>
</table>
<% ' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>

</html>

//>Rune

Det resulterede i en:

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'categoryID'

/contact.asp, line 239

Prøv at udskift denne linje:

<form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>?submit=ok&language=<%= language%>&categoryID=<%= categoryID %>&page=<%= page %>" method="post">

Med denne:
<form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>?submit=ok&language=<%= language%>&category=<%= category %>&page=<%= page %>" method="post">

//>Rune

Hmm stadig det samme.. check selv..

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'categoryID'

/contact.asp, line 239

Jamen for fanden da! -du ved vel hvad dine variabler hedder! Det er jo din QueryString og din variabel der skal parses ind der! -jeg aner jo ikke hvad du har kaldt dem!

//>Rune

Prøv med denne:

<%Option Explicit%>
<%
'Declare variables (for speed)
Dim i, language,  page, category, altLanguage, altImage, altTsi, altShowroom, altContact, altBack, altFront, altPrint, altName, altEmail, altSubject, altMessage
Dim Conn, rs, DSN, strSQL
Dim NewsFound, noNewsString
Dim ReadMoreText

'Set session timeout (in minutes)
Session.TimeOut = 40

'Get language from querystring (URL)
language = lcase(Request.QueryString("language"))
page = lcase(Request.QueryString("page"))
category = lcase(Request.QueryString("category"))

  'Assign values to local variables based on language
    If language = "uk" Then
      altLanguage = "Dansk"
      altImage = "dk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Contact"
      altBack  = "Back"
      altFront = "Front"
      altPrint = "Print"
      altName = "Name"
      altEmail = "Your email address"
      altSubject = "Subject"
      altMessage = "Message"
     
    Else
      altLanguage = "English"
      altImage = "uk"
      altTsi = "The Self Images"
      altShowroom = "Showroom"
      altContact = "Kontakt"
      altBack  = "Tilbage"
      altFront = "Forsiden"
      altPrint = "Print"
      altName = "Navn"
      altEmail = "Email adresse"
      altSubject = "Emne"
      altMessage = "Besked"
 
   

If Request.QueryString("submit") = "ok" Then

Dim sprog, Sendername, Senderemail, Subject, Recipient, Body

Sendername=Request.Form("name")
Senderemail=Request.Form("email")
Subject=Request.Form("subject")
Recipient = "information@theselfimages.com"
Body=Request.Form("body")

'Tjekker om der er indhold i formularens felter
IF Sendername = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Senderemail = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Instr(1, Senderemail, "@") = 0 THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Subject = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Body = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Trim(Body) = "" THEN
    Response.Redirect "contact.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF


Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.theselfimages.com"
JMail.Sendername = Sendername
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute


  End If
End If
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>The Self Images</title>
<meta NAME="Title" CONTENT="The Self Images">
<link rel="stylesheet" href="stylesheets/pagestyle.css">
<link rel="stylesheet" href="stylesheets/menustyle.css">
<META HTTP-EQUIV="content-type" CONTENT="text/html; charset=iso-8859-1">

<script language="JavaScript">
<!--
if (document.images) {

  img1_on = new Image();
  img1_on.src = "images/uk/tsi2.gif";
  img1_off = new Image();
  img1_off.src = "images/uk/tsi.gif";
 
  img2_on = new Image();
  img2_on.src = "images/uk/showroom2.gif";
  img2_off = new Image();
  img2_off.src = "images/uk/showroom.gif";
 
  img3_on = new Image();
  img3_on.src = "images/<%=language%>/contact2.gif";
  img3_off = new Image();
  img3_off.src = "images/<%=language%>/contact.gif";
 
}

var  iNavn = "";

function ms( imagename, action ) {
  if ( !document.images || iNavn == imagename ) return;
  if ( 'fix' == action ) {
      if ( iNavn != "" ) {
          temp = iNavn;
          iNavn = "";
          ms( temp, 'off' );
      }
      iNavn = imagename;
  } else
      document.images[imagename].src = window[ imagename +'_' +action ].src;
  }

// -->
</script>

<script language="JavaScript">

<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+''
win = window.open(mypage, myname, winprops+',toolbar=yes');
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
//  End -->
</script>
</head>

<body bgcolor="#333333" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table border="0" cellspacing="0" cellpadding="0" width="100%" height="100%">
  <tr>
    <td valign="top">
    <div align="center">
      <center>
      <table border="0" cellspacing="0" cellpadding="0" width="770">
        <tr>
          <td colspan="2"><img border="0" src="images/topbar2.gif"></td>
        </tr>
        <tr>
        <td>
         
          <img border="0" src="images/adjust.gif" width="11" height="1"><img border="0" src="images/frame.gif" width="13" height="12">
          <img border="0" src="images/adjust.gif" width="50" height="1"> <a href="#" onfocus="this.blur();" onMouseOver="ms('img1', 'on')" onMouseOut="ms('img1', 'off')" onClick="ms('img1', 'fix');parent.topright.location='../blank.asp'; parent.menubund.location='../shadow.asp'; parent.midt.location='../indhold/news1.asp'; return false;">
         
          <a href="#" onfocus="this.blur();" onMouseOver="ms('img1', 'on')" onMouseOut="ms('img1', 'off')" onClick="ms('img1', 'fix');location='page.asp?category=3&page=3&language=<%=language%>'; return false;">
          <img name="img1" src="images/uk/tsi.gif" alt="<%=altTsi%>" border="0" width="98" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
         
          <a href="#" onfocus="this.blur();" onMouseOver="ms('img2', 'on')" onMouseOut="ms('img2', 'off')" onClick="ms('img2', 'fix');location='page.asp?category=4&page=11&language=<%=language%>'; return false;">
          <img name="img2" src="images/uk/showroom.gif" alt="<%=altShowroom%>" border="0" width="72" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
         
          <a href="#" onfocus="this.blur();" onMouseOver="ms('img3', 'on')" onMouseOut="ms('img3', 'off')" onClick="ms('img3', 'fix');location='contact.asp?category=5&page=14&language=<%=language%>'; return false;">
          <img name="img3" src="images/<%=language%>/contact.gif" alt="<%=altContact%>" border="0" width="56" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1"></td>
          <td><img border="0" src="images/adjust.gif" width="1" height="29"></td>
        </tr>
        <tr>
          <td bgcolor="#FFFFFF" background="images/optionbar2.gif">

          <img border="0" src="images/adjust.gif" width="1" height="1"><a href="contact.asp?language=<%=altImage%>&page=<%=page%>&category=<%=category%>" onfocus="this.blur();">
          <img src="images/<%=altImage%>.gif" alt="<%=altLanguage%>" border="0"></a>
         
          <img border="0" src="images/adjust.gif" width="325" height="1"><a href="java script:history.back(-1);" onfocus="this.blur();"><img border="0" src="images/<%=language%>/back.gif" alt="<%=altBack%>"></a>
          <img border="0" src="images/adjust.gif" width="10" height="1"><a href="front.asp?language=<%=language%>" onfocus="this.blur();"><img border="0" src="images/<%=language%>/front.gif" alt="<%=altFront%>"></a>
          <img border="0" src="images/adjust.gif" width="10" height="1"><a href="#" onfocus="this.blur();"><img border="0" src="images/<%=language%>/print.gif" alt="<%=altPrint%>"></a><br>
          <img border="0" src="images/adjust.gif" width="550" height="7"></td>
          <td bgcolor="#F1F1F1"><img border="0" src="images/logo2.gif"></td>
        </tr>
        </table>
      <table border="0" cellspacing="0" cellpadding="0" width="770" style="height:100%">
        <tr>
          <td valign="top" bgcolor="#FFFFFF"><img border="0" src="images/adjust.gif" width="550" height="1"><br>
          <div align="center">
            <center>
            <table border="0" cellspacing="0" cellpadding="0" width="500" style="height:100%">
              <tr>
                <td valign="top"><img border="0" src="images/adjust.gif" width="310" height="30"><br>

<%
'Create database connection object
Set Conn = Server.CreateObject("ADODB.Connection")
'Create database connection string
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
'Open connection to database
Conn.Open(DSN)
                 
' SQL forespørgsel
strSQL = "Select * From PAGE WHERE pageID = " & page & " AND language = '" & language & "' AND categoryID = " & category
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

While Not rs.EOF
%>
                               
<!-- Images og andet på venstre del af contact.asp indsættes her -->
                  <%=rs("images")%></td>
               
                  <td valign="top"><img border="0" src="images/adjust.gif" width="190" height="1"><br>
             
<!-- Overskrift for aktuel artikel på højre del af siden -->
                  <span class="tekst"><span class="overskrift"><%=rs("heading")%></span><br>
                  <br>

<!-- Content: Mailformular -->
                  <form name="Form" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>?submit=ok&language=<%= language%>&category=<%= Request.QueryString("category") %>&page=<%= page %>" method="post">
                  <span class="mailform"><%=altName%></span>
                  <br>
                  <input name="name" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSender") %>" size="20"><br>
                  <br>
                  <span class="mailform"><%=altEmail%></span><br>
                  <input name="email" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sMail") %>" size="20"><br>
                  <br>
                  <span class="mailform"><%=altSubject%></span><br>
                  <input name="subject" type="text" style="width:185px;" maxlength="75" id="input" value="<%= request.querystring("sSubject") %>" size="20"><br>
                  <br>
                  <span class="mailform"><%=altMessage%></span><br>
                  <textarea name="body" style="width:185px;" rows="7" id="input" cols="20"><%= request.querystring("sBody") %></textarea><br>
                  <br>
                  <input type="image" onMouseOver="this.src='images/ok2.gif';" onMouseOut="this.src='images/ok.gif';" src="images/ok.gif" onfocus="this.blur( )" border="0" width="30" height="23">
                  </form>                 
             
              </td>
              </tr>
            </table>
            </center>
          </div>
          </td>
          <td valign="top" background="images/border.gif" bgcolor="#F1F1F1"><img border="0" src="images/adjust.gif" width="5" height="465"></td>
          <td valign="top" bgcolor="#F1F1F1" background="images/right2.gif"><img border="0" src="images/adjust.gif" width="215" height="1"><br>
          <div align="center">
            <center>
            <table border="0" cellspacing="0" cellpadding="0" width="180" style="height:100%">
              <tr>
                <td valign="top" bgcolor="#F1F1F1">
               
<!-- Kategorisk overskrift for menupunkter -->
                <span class="menu"><span class="menuheadline"><%=rs("menuheadline")%></span>
                <br>
                <br>

<!-- Menupunkter -->
                <a href="page.asp?category=3&page=3&language=<%=language%>">Profile Test</a><br><br>
                <a href="page.asp?category=3&page=4&language=<%=language%>">Curriculum Vitae</a><br><br>
               
                </span>
               
                <%
                rs.movenext
                Wend
                %> 
                             
              </td>
              </tr>
            </table>
            </center>
          </div>
          </td>
        </tr>
      </table>
      </center>
    </div>
    </td>
  </tr>
</table>
<% ' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>

</html>


//>Rune

Okayyy! ja.. men den sender bare ingen mail.
Jeg modtager i hvert fald ingen.

Kan validerings checket bevarer det tekst der ER indtastet, hvis OK klikkes inden alle felter er udfyldt, i stedet for at slette det?
Og så afsende når alle felter er udfyldt. På den måde undgår man jo
at skulle starte forfram hvis man kommer til at submidte for tidligt

Jeg fandt en anden lille fejl. Hvis OK klikkes uden noget som helst er indtastet og sproget er sat til DK, så får jeg en fejl. Det gør jeg ikke hvis sprog står til UK

Det er vist en af de vanskelige den her. Bliver nok nødt til at belønne dig, hvis det her kan komme til at virke.

artery_graphics> Lige nu er vi jo LÆNGE uden for det oprindelige spørgsmål! -Det der ikke virker nu er at dine parametere (Fx. Category=12) ikke bliver overført korrekt!

-prøv at leg lidt med det.. Det er så lidt der skal til, men som vi sidder nu så sidder du og spørger og spørger og forventer bare at der kommer et svar for hver gang du lægger en kode! -Det er umuligt for mig at se dine fejl lige nu...

Prøv nu at kig lidt på det selv, det er oxo det du lære mest af!

//>Rune

Okay.. got your point. Blev bare lidt ivrig efter at få det til at virke. Men du har ret. Tak for din hjælp so far.

Mvh. Lars

Helt i orden :o)

Points?

//>Rune

*G* Mente nok ;o)
Thx 4 Poinz

//>Rune