ASP haj til at rette fejl!

kommer??

<!--#include file="top.asp"-->

<script type="text/javascript">

function validering()
  {
  error = 0;

  if((document.forms[0].navn.value=='') && (error==0)) 
  {       
    alert('Du har glemt at skrive dit navn');
    document.forms[0].navn.focus();
    error = 1;       
  }

  if((document.forms[0].besked.value=='') && (error==0)) 
  {       
    alert('Du har glemt at udfylde din kommentar');
    document.forms[0].besked.focus();
    error = 1;       
  }   

  if(error == 0)
  document.forms[0].submit();   
  }

</script>
</head>

<%
id = Request.Querystring("id") 
%>
<%If Request.QueryString("mode") = "kommentar" Then %>
<%

' Sender resultaterne fra tilføj links til databasen
' Database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("rendmigibiip.mdb")
' Opbygger SQL streng
SQLstmt = "INSERT INTO forum (navn,besked,dato,svar_id)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("navn") & "','" & replace(request.form("besked"),"'","''") & "','" & request.form("dato") & "','" & request.form("svar_id") & "')"
response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

' Sender brugeren tilbage til links når databasen er opdateret
response.redirect (request.servervariables("SCRIPT_NAME") & "?id=" & request.form("svar_id"))


%>





<% else %>
<%
Function LinkString(strInput)
        arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
        "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
        "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")

        arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
        " <a href='$1$2' target='_blank'>$1$2</a> ", _
        " <a href='http://$2' target='_blank'>$2</a> ")

        Set Rx = New RegExp
        Rx.Global = True
        Rx.IgnoreCase = True

        For intIndex = 0 To UBound(arrPattern)
            Rx.Pattern = arrPattern(intIndex)
            strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
        Next
       
        Set Rx = Nothing

        LinkString = strInput
    End Function

'[ClearHTMLTags]
   
'Coded by Jóhann Haukur Gunnarsson
'joi@innn.is
   
'  Purpose: This function clears all HTML tags from a
'          string using Regular Expressions.
'  Inputs: strHTML;
'            A string to be cleared of HTML TAGS
'    intWorkFlow;
'            An integer that if equals to 0 runs only the RegExp filter
'              .. 1 runs only the HTML source render filter
'              .. 2 runs both the RegExp and the HTML source render
'              .. >2 defaults to 0
'  Returns: A string that has been filtered by the function
   
function ClearHTMLTags(strHTML, intWorkFlow)
  'Variables used in the function
       
  dim regEx, strTagLess
       
  '---------------------------------------
  strTagless = strHTML
  'Move the string into a private variable
  'within the function
  '---------------------------------------

  'regEx initialization
  '---------------------------------------
  set regEx = New RegExp
  'Creates a regexp object       
  regEx.IgnoreCase = True
  'Don't give frat about case sensitivity
  regEx.Global = True
  'Global applicability
  '---------------------------------------

  'Phase I
  '    "bye bye html tags"
  if intWorkFlow <> 1 then
    '---------------------------------------
    regEx.Pattern = "<[^>]*>"
    'this pattern mathces any html tag
    strTagLess = regEx.Replace(strTagLess, "")
    'all html tags are stripped
    '---------------------------------------
  end if
       
  'Phase II
  '    "bye bye rouge leftovers"
  '    "or, I want to render the source"
  '    "as html."

  '---------------------------------------
  'We *might* still have rouge < and >
  'let's be positive that those that remain
  'are changed into html characters
  '---------------------------------------   

  if intWorkFlow > 0 and intWorkFlow < 3 then
    regEx.Pattern = "[<]"
    'matches a single <
    strTagLess = regEx.Replace(strTagLess, "<")

    regEx.Pattern = "[>]"
    'matches a single >
    strTagLess = regEx.Replace(strTagLess, ">")
    '---------------------------------------
  end if
       
  'Clean up
  '---------------------------------------
  set regEx = nothing
  'Destroys the regExp object
  '---------------------------------------   
       
  '---------------------------------------
  ClearHTMLTags = strTagLess
  'The results are passed back
  '---------------------------------------
end function



Session.LCID = 1030

dim farve1
farve1 = "#3399FF"
dim farve2
farve2 = "#99CCFF"

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("rendmigibiip.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From tråd Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

do

response.write "<table><tr valign=top><td><img src=images/forum/info.gif border=1></td><td><font size=4>Info</font><br><font face=verdana size=2>Kategori: " & rs("kategori") & " <br> Dato: " & rs("dato") & " <br> Spørger: " & rs("navn") & " <br> ID: " & rs("id") & " </td></tr></table>"
response.write "<table><tr valign=top><td><img src=images/forum/ask.gif border=1></td><td><font size=4>" & rs("overskrift") & "</font><br><font face=verdana size=2>"

'fjern html
besked = ClearHTMLTags(over,2)

'Udskriver beskeden uden HTML tags
Response.Write(over)

'fjern html
besked = ClearHTMLTags(sporger,2)

'Udskriver beskeden uden HTML tags
Response.Write(sporger)


dim besk
besk = rs ("besked")

'fjern html
besk = Server.HTMLEncode(besk)

'www funktion
besk = LinkString(besk)

'Linieskift
besk = Replace(besk,chr(13),"<br>")

response.write(besk)
response.write "</td></tr></table>"
response.write "<br><blockquote><img src=http://www.fugleonline.dk/version2/images/line.gif></blockquote>"



  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing



' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("rendmigibiip.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From forum Where [svar_id] = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

    if not rs.eof then
        do while not rs.eof


response.write "<table><tr valign=top><td><img src=images/forum/answer.gif border=1></td><td><font face=verdana size=4>" & rs("dato") & " skriver " & rs("navn") & " følgende: <br><font face=verdana size=2>"

'fjern html
svar = ClearHTMLTags(svar,2)

'Udskriver beskeden uden HTML tags
Response.Write(svar)

response.write ""
dim besked
besked = rs ("besked")

'fjern html
besked = Server.HTMLEncode(besked)

'www funktion
besked = LinkString(besked)

response.write(besked)
response.write "</td></tr></table>"
response.write "<br><blockquote><img src=http://www.fugleonline.dk/version2/images/line.gif></blockquote>"

  rs.MoveNext
Loop

    end if
Conn.Close
Set Conn = Nothing


' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("rendmigibiip.mdb")
Conn.Open DSN

' Hent fra databasen afhngig af vrdien id fra URL
strSQL = "Select * From trd Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

response.write "<tr><td colspan='2'><table cellpadding='0' cellspacing='0' width='100%'><tr><td width='25%' valign='top'></td><td width='75%'><h2><form method='post' action='spm.asp?mode=kommentar' onsubmit='validering();return false;'><input type='hidden' size='35' name='navn' value='"
response.write session("brugernavn")
response.write "<input type='hidden' name='dato' value='"&Date()&"'><input type='hidden' name='svar_id' value='" & rs("id") & "'></h2></td></tr></table></td></tr>"
response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td width='25%' valign='top'><font face=verdana size=2><b>Kommentar:</td><td width='75%'><h2><textarea cols='43' rows='5' name='besked'></textarea></h2></td></tr></table></td></tr>"
response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td width='25%' valign='top'><h2></h2></td><td width='75%'><h2><input type='submit' value='Send'></form></h2></td></tr></table></td></tr>"
response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td bgcolor='"&farve1&"' colspan='2' align='right' style='border-bottom: 1 solid #000000;' style='border-top: 1 solid #000000;'><a href='oversigt.asp' target='_self'><font face=verdana size=2> Oversigt</a>&nbsp;&nbsp;<a href='opret.asp' target='_self'><font face=verdana size=2> Opret ny trd</a>&nbsp;&nbsp;</td></tr></table></td></tr></table>"


Conn.Close
Set Conn = Nothing


%>
<% End If %>

<!--#include file="bottom.asp"-->






HVOR LINIE 283 ER FØLGENDE:

Set rs = Conn.Execute(strSQL)

Tror det er en fejl i din database connection men ved ikke helt...

Linie 283:
strSQL = "Select * From trd Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

Der eksistere ikke en tabel eller forspørgsel ved dette navn "trd"
Check din Access database og se om tabellen eller forspørgslen eksisterer. Der kunne også være tale om en taste fejl.

Som den selv siger det.
database tabbelen "trd" findes ikke!

Ådn din access base og se om du kan se tabbellen "trd"

Har ikke office efter formatering! Nogen der gider kigge ind?

lol jeg tog fejl :(

Kan du ikke lægge din db online også kan vi downloade den ????

ALDRIG angiv din DB forbindelse... Jeg har lige downloaded databasen og der kan onde personer se emails, pass words osv.....!!

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("rendmigibiip.mdb")
Conn.Open DSN

Det har virket før! Men efter jeg har ændret lidt i designet osv. virker det ikke!

entracore: Jeg kan sende databasen...

eller kanont dewaign .by the way :-)

design skulle der stå :-)

Den kan ikke finde tabel navnet trd i din database. Er det stavet rigtigt?

trd er der vist ik :-)

nu får jeg pludselig

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

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Id ='.

/version2/spm.asp, line 185

du bruger tidligere en tabel der hedder "tråd" - prøv at skrive det i stedet for "trd" !!!!!!!!!!!!!!!!!!

hvis bare en eller anden kan få lortet op at køre, er jeg tilfreds :)

coolcoder: hjælper ik

Din Request.Querystring("id") er tom... Tjek du før den rigtigt overført via linket.

det virkede lige før, altså med at kunne se alle beskederne, overskriften osv. men nu kan jeg INGENTING se andet end en skidefejl:

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

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Id ='.

/version2/spm.asp, line 185

Linie 185:

Set rs = Conn.Execute(strSQL)

hvorfor vil du egentlig også lave et databaseopslag der til sidst??
Du bruger jo kun id'et, som du alligevel har i din querystring.

Nu kan man se kommentar-boksen, og man kan skrive, samt klikke på 'Send', men SÅ sker der noget:

INSERT INTO forum (navn,besked,dato,svar_id) VALUES ('admin XXXXX
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/version2/spm.asp, line 45


XXXXX betyder at der er en tom tekstbox, man kan skrive i???

og sourcen ser nu sådan ud:






<!--#include file="top.asp"-->

<script type="text/javascript">

function validering()
  {
  error = 0;

  if((document.forms[0].navn.value=='') && (error==0)) 
  {       
    alert('Du har glemt at skrive dit navn');
    document.forms[0].navn.focus();
    error = 1;       
  }

  if((document.forms[0].besked.value=='') && (error==0)) 
  {       
    alert('Du har glemt at udfylde din kommentar');
    document.forms[0].besked.focus();
    error = 1;       
  }   

  if(error == 0)
  document.forms[0].submit();   
  }

</script>
</head>

<%
id = Request.Querystring("id") 
%>
<%If Request.QueryString("mode") = "kommentar" Then %>
<%

' Sender resultaterne fra tilføj links til databasen
' Database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("rendmigibiip.mdb")
' Opbygger SQL streng
SQLstmt = "INSERT INTO forum (navn,besked,dato,svar_id)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("navn") & "','" & replace(request.form("besked"),"'","''") & "','" & request.form("dato") & "','" & request.form("svar_id") & "')"
response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

' Sender brugeren tilbage til links når databasen er opdateret
response.redirect (request.servervariables("SCRIPT_NAME") & "?id=" & request.form("svar_id"))


%>





<% else %>
<%
Function LinkString(strInput)
        arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
        "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
        "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")

        arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
        " <a href='$1$2' target='_blank'>$1$2</a> ", _
        " <a href='http://$2' target='_blank'>$2</a> ")

        Set Rx = New RegExp
        Rx.Global = True
        Rx.IgnoreCase = True

        For intIndex = 0 To UBound(arrPattern)
            Rx.Pattern = arrPattern(intIndex)
            strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
        Next
       
        Set Rx = Nothing

        LinkString = strInput
    End Function

'[ClearHTMLTags]
   
'Coded by Jóhann Haukur Gunnarsson
'joi@innn.is
   
'  Purpose: This function clears all HTML tags from a
'          string using Regular Expressions.
'  Inputs: strHTML;
'            A string to be cleared of HTML TAGS
'    intWorkFlow;
'            An integer that if equals to 0 runs only the RegExp filter
'              .. 1 runs only the HTML source render filter
'              .. 2 runs both the RegExp and the HTML source render
'              .. >2 defaults to 0
'  Returns: A string that has been filtered by the function
   
function ClearHTMLTags(strHTML, intWorkFlow)
  'Variables used in the function
       
  dim regEx, strTagLess
       
  '---------------------------------------
  strTagless = strHTML
  'Move the string into a private variable
  'within the function
  '---------------------------------------

  'regEx initialization
  '---------------------------------------
  set regEx = New RegExp
  'Creates a regexp object       
  regEx.IgnoreCase = True
  'Don't give frat about case sensitivity
  regEx.Global = True
  'Global applicability
  '---------------------------------------

  'Phase I
  '    "bye bye html tags"
  if intWorkFlow <> 1 then
    '---------------------------------------
    regEx.Pattern = "<[^>]*>"
    'this pattern mathces any html tag
    strTagLess = regEx.Replace(strTagLess, "")
    'all html tags are stripped
    '---------------------------------------
  end if
       
  'Phase II
  '    "bye bye rouge leftovers"
  '    "or, I want to render the source"
  '    "as html."

  '---------------------------------------
  'We *might* still have rouge < and >
  'let's be positive that those that remain
  'are changed into html characters
  '---------------------------------------   

  if intWorkFlow > 0 and intWorkFlow < 3 then
    regEx.Pattern = "[<]"
    'matches a single <
    strTagLess = regEx.Replace(strTagLess, "<")

    regEx.Pattern = "[>]"
    'matches a single >
    strTagLess = regEx.Replace(strTagLess, ">")
    '---------------------------------------
  end if
       
  'Clean up
  '---------------------------------------
  set regEx = nothing
  'Destroys the regExp object
  '---------------------------------------   
       
  '---------------------------------------
  ClearHTMLTags = strTagLess
  'The results are passed back
  '---------------------------------------
end function



Session.LCID = 1030

dim farve1
farve1 = "#3399FF"
dim farve2
farve2 = "#99CCFF"

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("rendmigibiip.mdb")
Conn.Open DSN

' Hent fra databasen afhngig af vrdien id fra URL
strSQL = "Select * From tråd Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

do
response.write "<table><tr valign=top><td><img src=images/forum/info.gif border=1></td><td><font size=4>Info</font><br><font face=verdana size=2>Kategori: " & rs("kategori") & " <br> Dato: " & rs("dato") & " <br> Spørger: " & rs("navn") & " <br> ID: " & rs("id") & " </td></tr></table>"
response.write "<table><tr valign=top><td><img src=images/forum/ask.gif border=1></td><td><font size=4>" & rs("overskrift") & "</font><br><font face=verdana size=2>"

'fjern html
besked = ClearHTMLTags(over,2)

'Udskriver beskeden uden HTML tags
Response.Write(over)

'fjern html
besked = ClearHTMLTags(sporger,2)

'Udskriver beskeden uden HTML tags
Response.Write(sporger)


dim besk
besk = rs ("besked")

'fjern html
besk = Server.HTMLEncode(besk)

'www funktion
besk = LinkString(besk)

'Linieskift
besk = Replace(besk,chr(13),"<br>")

response.write(besk)
response.write "</td></tr></table>"
response.write "<br><blockquote><img src=http://www.fugleonline.dk/version2/images/line.gif></blockquote>"



  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing



' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("rendmigibiip.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From forum Where [svar_id] = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

    if not rs.eof then
        do while not rs.eof


response.write "<table><tr valign=top><td><img src=images/forum/answer.gif border=1></td><td><font face=verdana size=4>" & rs("dato") & " skriver " & rs("navn") & " følgende: <br><font face=verdana size=2>"

'fjern html
svar = ClearHTMLTags(svar,2)

'Udskriver beskeden uden HTML tags
Response.Write(svar)

response.write ""
dim besked
besked = rs ("besked")

'fjern html
besked = Server.HTMLEncode(besked)

'www funktion
besked = LinkString(besked)

response.write(besked)
response.write "</td></tr></table>"
response.write "<br><blockquote><img src=http://www.fugleonline.dk/version2/images/line.gif></blockquote>"

  rs.MoveNext
Loop

    end if
Conn.Close
Set Conn = Nothing


' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("rendmigibiip.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From tråd Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

response.write "<tr><td colspan='2'><table cellpadding='0' cellspacing='0' width='100%'><tr><td width='25%' valign='top'></td><td width='75%'><h2><form method='post' action='spm.asp?mode=kommentar' onsubmit='validering();return false;'><input type='hidden' size='35' name='navn' value='"
response.write session("brugernavn")
response.write "<input type='hidden' name='dato' value='"&Date()&"'><input type='hidden' name='svar_id' value='" & rs("id") & "'></h2></td></tr></table></td></tr>"
response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td width='25%' valign='top'><font face=verdana size=2><b>Kommentar:</td><td width='75%'><h2><textarea cols='43' rows='5' name='besked'></textarea></h2></td></tr></table></td></tr>"
response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td width='25%' valign='top'><h2></h2></td><td width='75%'><h2><input type='submit' value='Send'></form></h2></td></tr></table></td></tr>"


Conn.Close
Set Conn = Nothing


%>
<% End If %>

<!--#include file="bottom.asp"-->

det er noget galt med dine data-typer. Måske er det din dato - de gi'r tit problemer. Ellers er det måske en streng der er længere en feltet tillader

uha :) Kan du ikke hjælpe mig? Er du ikke på ICQ eller MSN ?

ja, det er jeg (hvis der er mig du snakker til)

158507431!!

tak for hjælpen coolcoder! Nu virker'et!
http://www.fugleonline.dk/version2/spm.asp

logind med
Brugernavn: guest
Password: guest