05. februar 2003 - 08:00Der er
12 kommentarer og 1 løsning
Bliver link
Hvordan kan jeg komme af med følgende.. Når jeg har et ord som ikke er i databasen kan man ligge det ind eller sende det til webmasteren, det virker bibeholder den tjekboksene og det burde den ikke. og laver noget response.write om til et link
Du spørger Hvad kan der være galt? Det må betyde at du har en eller anden kode som ikke virker efter hensigten. Derfor vil gerne se den kode der ikke virker. Har jeg misforstået noget? Det kan nemlig godt ske :)
Jo jeg kan da vise side her. <table border="0" width="100%"> <tr> <td width="50%"><%ordet = request.querystring("ord") set rs = server.CreateObject("ADODB.Recordset") set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("database.mdb") SikkerStreng = Replace(ordet, "'", "''") strSQL = "SELECT * FROM opslagsord where ((forklaring like '%"& SikkerStreng &"%') or (ord like '%"& SikkerStreng &"%') or (relation like '%"& SikkerStreng &"%')) AND (Forklaring = '' Or Forklaring Is Null) ORDER BY ord ASC" Set rs = Conn.Execute(strSQL) Response.write strSQL if ordet = "" then response.write "<b>" & "Du skal indtaste et søgeord" & "<b>" end if if ordet <> "" then if rs.eof then response.write "<b>" & "Du søgte på" & " " & """ & ordet & """ & " " & "gav ingen resultater" & "</b>" & "<br> " Response.write "Hjælp os med at udbygge maskinen ved at følge instruktionen herunder"%> <form name="IkkeFundet" method="post" action="default.asp?ord=<%=request.querystring("ord")%>"> <input type="hidden" name="ord" value="<% =Request("ord") %>"><p><input type="radio" name="R1" onClick="document.forms['IkkeFundet'].submit();" value="R1">"Jeg kender selv forklaringen på "<%response.write "<b>" & ordet & "</b>"%>""<br> <input type="radio" name="R2" onClick="document.forms['IkkeFundet'].submit();" value="R2">"Nogen andre der kender betydningen af "<%response.write "<b>" & ordet & "</b>"%>" ?"<br> <input type="radio" name="R3" onClick="document.forms['IkkeFundet'].submit();" value="R3">"Webmaster, vil du søge på "<%response.write "<b>" & ordet & "</b>"%>""<br> </p> </form> <p><%else response.write "Vi fandt følgende, efter din søgning på" & " " & """ & "<b>" & ordet & "</b>" & """ & "<br>" Response.write "<br>" do while not rs.EOF response.write "<a style='color: rgb(0,0,0)' href='default.asp?ord=" & request.querystring("ord") & "&ID=" & RS("ID") & "'> " & RS("ord") & "<br>" rs.movenext loop end if end if%></p> <p><%if Request.Form("R1") <> "" then Response.write "<b>" & ("Du kan selv forklare ordet herunder") & "</b>" else end if %><%if Request.Form("R2") <> "" then SQL = "SELECT ord FROM opslagsord where ord = '" & ordet &"'" set rs = Conn.execute(SQL) if rs.eof then SQL = "INSERT INTO opslagsord(Ord, Forklaring, Relation, Reference) VALUES ('" & ordet & "', '" & " " & "' , '" & " " & "', '" & " " & "')" conn.execute(sql) else Response.write ("Ordet er allerede i databasen") end if end if%><%if Request.Form("R3") <> "" then SQL = "SELECT ord FROM opslagsord where ord = '" & ordet &"'" set rs = Conn.execute(SQL) if rs.eof then SQL = "INSERT INTO opslagsord(Ord, Forklaring, Relation, Reference) VALUES ('" & ordet & "', '" & "" & "' , '" & "" & "', '" & "" & "')" conn.execute(sql) Response.write "<b>" & ("Ordet er blevet indsat i databasen") & "</b>" Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.dk" JMail.Sender = "mark.mikkelsen@mail.dk" JMail.Subject = ordet JMail.AddRecipient "mark.mikkelsen@mail.dk" JMail.Body = ("Du skal på opfordring lede efter ") & ordet JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Execute Response.write "<br>" & "<b>" & ("Ordet") & " " & "(" & ordet & ")" & " " & ("er sendt til webmasteren") & "</b>" else Response.write ("Ordet er allerede i databasen") end if end if%>
får den fejl at når jeg har valgt en a radioerne når et ord ikke er fundet som bliver Response.write "<br>" & "<b>" & ("Ordet") & " " & "(" & ordet & ")" & " " & ("er sendt til webmasteren") & "</b>"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.