Avatar billede no_doubt Nybegynder
05. februar 2003 - 08:00 Der 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

Hvad kan der være galt
Avatar billede somaliomar Praktikant
05. februar 2003 - 08:04 #1
Hvordan ser koden ud?
Avatar billede no_doubt Nybegynder
05. februar 2003 - 16:17 #2
Hvad for noget vil du se ?
Avatar billede somaliomar Praktikant
05. februar 2003 - 17:21 #3
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 :)
Avatar billede no_doubt Nybegynder
05. februar 2003 - 17:22 #4
Hvís evt har et program som icq eller msn vil jeg gerne uddybe
Avatar billede somaliomar Praktikant
05. februar 2003 - 17:30 #5
På nuværende tidspunkt har jeg ikke adgang til de to programmer. Men du kan uddybe det her, kan du ikke?
Avatar billede no_doubt Nybegynder
05. februar 2003 - 19:22 #6
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å" & "&nbsp;" & "&quot;" & ordet & "&quot;" & "&nbsp;" & "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">&quot;Jeg kender
      selv forklaringen på &quot;<%response.write "<b>" & ordet & "</b>"%>&quot;&quot;<br>
      <input type="radio" name="R2" onClick="document.forms['IkkeFundet'].submit();" value="R2">&quot;Nogen
      andre der kender betydningen af &quot;<%response.write "<b>" & ordet & "</b>"%>&quot; ?&quot;<br>
      <input type="radio" name="R3" onClick="document.forms['IkkeFundet'].submit();" value="R3">&quot;Webmaster,
      vil du søge på &quot;<%response.write "<b>" & ordet & "</b>"%>&quot;&quot;<br>
      </p>
    </form>
    <p><%else
response.write "Vi fandt følgende, efter din søgning på" & "&nbsp;" & "&quot;" & "<b>" & ordet & "</b>" & "&quot;" & "<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") & "&nbsp;" & "(" & ordet & ")" & "&nbsp;" & ("er sendt til webmasteren") & "</b>"
else
Response.write ("Ordet er allerede i databasen")
end if
end if%>
Avatar billede somaliomar Praktikant
05. februar 2003 - 19:40 #7
Hvad fejler denne side? Får du nogen fejl-meddelelser? Er der noget du vil have tilføjet?? Jeg er endnu ikke helt med på hvad du vil...
Avatar billede no_doubt Nybegynder
05. februar 2003 - 19:42 #8
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") & "&nbsp;" & "(" & ordet & ")" & "&nbsp;" & ("er sendt til webmasteren") & "</b>"

til et link og ordene bliver listet.
Avatar billede somaliomar Praktikant
05. februar 2003 - 21:44 #9
Æhh?? Nu er helt lost... Kan du omformulere det?
Avatar billede no_doubt Nybegynder
05. februar 2003 - 23:21 #10
Se :
http://1q.frip.dk/opslag/default.asp?ord=6453&soeg=S%F8g
tryk 2 gange på radio 2
og se mine kommentare nederst
Avatar billede no_doubt Nybegynder
06. februar 2003 - 22:43 #11
hjalp det?
Avatar billede somaliomar Praktikant
07. februar 2003 - 07:00 #12
En lille smule :)

Når man søger på et ord, som ikke findes i databasen, så kommer der de tre valgmuligheder.

1. "Jeg kender selv forklaringen på "?????""
2. "Nogen andre der kender betydningen af "?????" ?"
3. "Webmaster, vil du søge på "?????""

Når man så vælger en af valgmulighederne, hvad skal der så ske?
Avatar billede no_doubt Nybegynder
07. februar 2003 - 14:44 #13
det var fordi den ikke sorterede rigtigt
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester