---
title: "Forum hjälp..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11802-forum-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ReloadMaster"
published: "2001-09-27T08:24:00.000Z"
updated: "2001-09-27T11:34:00.000Z"
replies: 6
views: 176
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11802-forum-hjälp"
---

# Forum hjälp...

## #1 — ReloadMaster, 2001-09-27T08:24Z

Någon som kan hjälpa mig med detta?

```
<!--#Include File = "Adovbs.inc"-->

<% id = Request.Querystring("ID")
oldamne = Request.Querystring("rubrik")
upd = Request.Form("dummy")
If Len(oldamne) > 0 Then
samne = oldamne
Else
samne = Request.Form("Amne")
End If
snamn = Request.Form("Namn")
sepost = Request.Form("Epost")
shemsida = Request.Form("Hemsida")
sinlagg = Request.Form("Inlagg")

If Len(upd) > 0 Then
Sorig = 1
Else
Sorig = 0
End If

'Skapa Sessions så att man kommer ihåg använderns detaljer
Session("Namn") = Request.Form("Namn") 
Session("Email") = Request.Form("Epost")
Session("Hemsida") = Request.Form("Hemsida") 
 %>
<html>
<head>
<title>Inlägg i diskussion</title>
</head>
<body>
<P> </P>
<form method="POST" action="forum_nyttinlagg.asp?ID=<%=id%>&Rubrik=<%=Server.URLEncode(oldamne)%>" name="Test">
<a href="forum.asp"><p>Tillbaka till forumet</a><br>
<%
If Len(upd) > 0 Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("forumdb.mdb")
If Len(id) < 1 Then id = "0"

ssql = "Insert Into forum (Iid, Rubrik, ORIG, [Namn], Email, Hemsida, Meddelande, "
ssql = ssql & "[datum]) values (" & cInt(id) & ",'" & samne & "'," & Sorig & ",'" & snamn & "','" & sepost & "','" & shemsida & "','" & sinlagg & "',now())"
Connect.BeginTrans
If Len(oldamne) > 0 Then
supdate="Update forum Set Antal=Antal + 1 Where ID = " & id
Connect.Execute supdate
End If
Connect.Execute ssql,,128
Connect.CommitTrans
Response.Write "Inlägg Sparat!"
Else %>
<P>Ämne:
<%
If Len(oldamne) > 0 Then
Response.Write oldamne
%>
<input Type="hidden" Name="Amne" size="20" Value = <% =oldamne%>></P>
<%Else%>
<input Type="text" Name="Amne" Size="20"></P>
<%End If %>
Namn: <input Type="text" Name="Namn" size="30"><br><br>
Epost: <input Type="text" Name="Epost" size="20">
Hemsida: <input Type="text" Name="Hemsida" size="20" value="Ej <A HREF="http://!"></P>" TARGET=_blank>http://!"></P></A>  
<P>Inlägg: <textarea rows="4" Name="Inlagg" Cols="40"></Textarea></P>
<input Type="hidden" Name="dummy" Size="20"></P>
<p><Input Type="Button" Value="Skicka" Name="B1" onClick="B1_OnClick(); return
false;">
<Input Type="Reset" Value="Återställ" Name="reset">
</p>
</form>
<% End If %>
</body>
</html>
<script language="JavaScript">
function B1_OnClick() {
var nam = document.Test.Namn.value;
var inl = document.Test.Inlagg.value;
var amn = document.Test.Amne.value;
if((nam.length != 0) && (inl.length != 0)&& (amn.length != 0)) {
document.Test.dummy.value = "xxx";
document.Test.submit();
} else {
alert("Du glömde att fylla i Namn, Inlägg eller Ämne");
}
}
</script>
```

Det som är felet är att den kryssar i SORIG med YES
trots att det är ett svar...

Hoppas du förstod...

Permalänk: https://www.webforum.nu/p/11802

## #2 — ReloadMaster, 2001-09-27T08:38Z

Behövs EJ Jag ändrade 
If Len(upd) \> 0 Then
Till
If Len(oldamne) \> 0 Then

Någon som vet vad Len är?

Permalänk: https://www.webforum.nu/p/287472

## #3 — jorgen, 2001-09-27T08:43Z

Hej!

Jepps, Len är längden (antal tecken) på variabeln.

En fråga bara:

Varför infogar du 17 kb iform av:

\<!--#Include File = "Adovbs.inc"--\>

när du inte använder konstanter. Ett tips är att aldrig infoga den filen. Om du ska använda konstanter så infoga bara de konstanter du tänkt använda.

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/287473

## #4 — OveRRidE, 2001-09-27T09:23Z

Då kommer man ju till det eviga.. vilka skall jag använda och vad används alla till?

När jag ändå frågar.. jörgen, vet du nån lista nånstans som förklarar dessa konstanter och deras användningsområde?

Permalänk: https://www.webforum.nu/p/287474

## #5 — jorgen, 2001-09-27T11:11Z

Hej! 

Jag använder aldrig konstanter. Men vill du tvunget använda dem kan du hitta mer om dem här:
 <http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmscadoapireference.asp> 

Ps. Det är kanske någon guru som kan förklara fördelarna och nackdelarna med att använda konstanter, tittar efter LarsG ;)

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/287475

## #6 — ReloadMaster, 2001-09-27T11:28Z

Finns det något sätt att byta ut Len till typ:
If "oldamne" = "" Then

Eller något annat...

Permalänk: https://www.webforum.nu/p/287476

## #7 — jorgen, 2001-09-27T11:34Z

Hej!

Varför vill du byta ut Len?

Koden:

```
dim oldamne
If len(oldamne) > 0 Then
```

och

```
dim oldamne
If oldamne <> "" Then
```

Gör ju i princip samma sak.

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/287477

---

Tråden på webben: https://www.webforum.nu/amne/asp/11802-forum-hjälp