Notifikationer

Markér alle som læst Log ud

snowflake7 Nybegynder

08. marts 2004 - 15:14 Der er 18 kommentarer og
1 løsning

Type mitmath

Vi vil gerne lave en string om til en Integer

Men vi får fejl
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'CInt'
/sandberg/Vaelg_stik.asp, line 13

<% @LANGUAGE = "VBScript" %>



<html>

<head>
<title>Kabelguiden</title>
</head>

<body>
<%
setApparatA =CInt( Request.Form("vælgapparata"))
setApparatB =CInt( Request.Form("vælgapparatb"))
session("site") = "Vaelg_stik"
session.Timeout = 60
siden("vaelg_stik")
%>
</body>

</html>

Synes godt om

fennec Nybegynder

08. marts 2004 - 16:00 #1

sikkert fordi Request.Form("vælgapparata") er tom.....

Synes godt om

snowflake7 Nybegynder

08. marts 2004 - 16:09 #2

<%

Sub get_vaelg_apparat_indhold()

Response.Write "<form action='Vaelg_stik.asp' method='post'>"

Response.Write "<select name='vælgapparata'>"

For t = getApparatStoerrelseL() to getApparatStoerrelseU()
Response.Write "<option value='&t&'>"&getApparat(t)&"</option>"
Next
Response.Write "</select>"

Response.Write "<select name='vælgapparatb'>"

For t = getApparatStoerrelseL() to getApparatStoerrelseU()
Response.Write "<option value='&t&'>"&getApparat(t)&"</option>"
Next
Response.Write "</select>"

Response.Write "<input type='submit' value='Ok'>"

Response.Write "</form>"

End Sub

%>

Hvad?

Synes godt om

fennec Nybegynder

08. marts 2004 - 16:19 #3

Response.Write "<option value='"&t&"'>"&getApparat(t)&"</option>"

så skulle det virke. Request.Form("vælgapparata") har indeholdt &t& og ikke værdien af t.

Synes godt om

snowflake7 Nybegynder

08. marts 2004 - 17:04 #4

Nu får vi denne fejl:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/sandberg/functioner/db_functioner.asp, line 210
----------Fra db_Functioner.asp--------------

Sub get_Valgt_Stik(v)

Dim rs, Conn, DSN
Dim arr_Valgt_Stik
Dim Valgt_Stik_List
Dim f
Dim seperator
seperator="¤%&"
f=""

Set rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("databaser/stikDB.mdb")
Conn.Open DSN

Dim strSQL

strSQL = "select * from App_stik_ref Where apparat_ID=v"

Set rs = Conn.Execute(strSQL)

If (not rs.EOF) And (not rs.bof) then
If (isnull(rs(0))) then
Response.write "1"
vaelgStikSvar("no")

Else
Response.write "2"
do
f = "" & rs(0)
Valgt_Stik_List = Valgt_Stik_List & f & seperator
rs.MoveNext
loop While Not rs.EOF
arr_vaelgt_Stik = Split(Valgt_Stik_List, seperator)
vaelgStikSvar("yes")
End If
Else
Response.write "Ingen resultater"
vaelgStikSvar("no")
End If

Conn.Close
Set Conn = Nothing

End Sub

Synes godt om

ellebaek Nybegynder

08. marts 2004 - 20:28 #5

Sub get_Valgt_Stik(v)

Dim rs, Conn, DSN
Dim arr_Valgt_Stik
Dim Valgt_Stik_List
Dim f
Dim seperator
seperator="¤%&"
f=""

Set rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("databaser/stikDB.mdb")
Conn.Open DSN

Dim strSQL

strSQL = "select * from App_stik_ref Where apparat_ID='" & v &"'"

Set rs = Conn.Execute(strSQL)

If (not rs.EOF) And (not rs.bof) then
If (isnull(rs(0))) then
Response.write "1"
vaelgStikSvar("no")

Else
Response.write "2"
do
f = "" & rs(0)
Valgt_Stik_List = Valgt_Stik_List & f & seperator
rs.MoveNext
loop While Not rs.EOF
arr_vaelgt_Stik = Split(Valgt_Stik_List, seperator)
vaelgStikSvar("yes")
End If
Else
Response.write "Ingen resultater"
vaelgStikSvar("no")
End If

Conn.Close
Set Conn = Nothing

End Sub

Synes godt om

snowflake7 Nybegynder

08. marts 2004 - 23:29 #6

Vi får denne fejl, når vi ændre i db_funktioner.asp:

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

[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

/sandberg/functioner/db_functioner.asp, line 210

Synes godt om

snowflake7 Nybegynder

08. marts 2004 - 23:31 #7

apparat_ID er sat til tal i Databasen.

Synes godt om

snowflake7 Nybegynder

09. marts 2004 - 11:46 #8

Okay vi fik rettet ovenstående fejl men vi får denne i stedet for:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'setApparatA'
/sandberg/Vaelg_stik.asp, line 17

--------------Koden----------------------------------------------------

<% @LANGUAGE = "VBScript" %>





<html>

<head>
<title>Kabelguiden</title>
</head>

<body>
<%
StrA = Request.Form("vaelgapparata")
StrB = Request.Form("vaelgapparatb")
SetApparatA() = INT(StrA)
SetApparatB() = StrB

session("site") = "Vaelg_stik"
session.Timeout = 60
siden("vaelg_stik")
%>
</body>

</html>

Synes godt om

snowflake7 Nybegynder

09. marts 2004 - 11:46 #9

er villig til at give flere point hvis det skulle lokke nogen!?!

Synes godt om

fennec Nybegynder

09. marts 2004 - 11:54 #10

SetApparatA = INT(StrA)
SetApparatB = StrB

Synes godt om

snowflake7 Nybegynder

09. marts 2004 - 12:03 #11

Error Type:
Microsoft VBScript runtime (0x800A01F5)
Illegal assignment: 'setApparatA'
/sandberg/Vaelg_stik.asp, line 17

Synes godt om

fennec Nybegynder

09. marts 2004 - 12:20 #12

er SetApparatA og SetApparatB funktioner????

Synes godt om

snowflake7 Nybegynder

09. marts 2004 - 12:24 #13

Ja det er funktioner fra siden varSide:

<%
'Dim hentetSprog
hentetSprog = "no"
app_a = null
app_b = null
'Dim VaelgStikSvar
VaelgStikSvar = ""

Sub setHentetSprog(yn)
Dim tempHentetSprog
tempHentetSprog = "" & yn
hentetSprog = "" & tempHentetSprog
End Sub

Function getHentetSprog()
getHentetSprog = "" & hentetSprog
End Function

Sub setApparatA(a)
Dim tempa
tempa = a
app_a = tempa
End Sub

Function getApparatA()
getApparatA = app_a
End Function

Sub setApparatB(b)
Dim tempb
tempb = b
app_b = tempb
End Sub

Function getApparatB()
getApparatB = app_b
End Function

Function getVaelgStikSvar()
getVaelgStikSvar = "" & VaelgStikSvar
End Function

Sub SetVaelgStikSvar(sv)
Dim tempsvar
tempsvar = "" & sv
VaelgStikSvar = "" & tempsvar
End Sub

%>

Synes godt om

fennec Nybegynder

09. marts 2004 - 12:27 #14

SetApparatA(INT(StrA))
SetApparatB(StrB)

Synes godt om

snowflake7 Nybegynder

09. marts 2004 - 12:35 #15

tak det virkede!!!!!

Jaaaa
Jubiiiii
smid et svar

Synes godt om

fennec Nybegynder

09. marts 2004 - 12:49 #16

kommer her :o)

Synes godt om

snowflake7 Nybegynder

09. marts 2004 - 14:30 #17

Hov var lige lidt hurtig med at sige ,at det virkede.
den siger en ny fejl :
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'LBound'
/sandberg/functioner/db_functioner.asp, line 314

---------------Koden db_functioner.asp--------------

Function getVaelgtStikA(s)
getVaelgtStikA = arr_Vaelgt_StikA(s)
End Function

Function getValgtStikStoerrelseUA()
getValgtStikStoerrelseUA = UBound(arr_Vaelgt_StikA)-1
End Function

Function getValgtStikStoerrelseLA()
getValgtStikStoerrelseLA = LBound(arr_Vaelgt_StikA)
End Function

Function getVaelgtStikB(s)
getVaelgtStikB = arr_Vaelgt_StikB(s)
End Function

Function getValgtStikStoerrelseUB()
getValgtStikStoerrelseUB = UBound(arr_Vaelgt_StikB)-1
End Function

Function getValgtStikStoerrelseLB()
getValgtStikStoerrelseLB = LBound(arr_Vaelgt_StikB)
End Function

------------------end Kode--------------------

-------------------vaelg_Stik_indhold.asp-----------------------

<%

Sub get_vaelg_stik_indhold()

Response.Write "<form action='.asp' method='post'>"

Dim a
a = getApparatA()
get_Valgt_StikA(a)
Dim gvssA
gvssA = getVaelgStikSvarA()

Dim b
b = getApparatB()
get_Valgt_StikB(b)
Dim gvssB
gvssB = getVaelgStikSvarB()

if (gvssA = "yes") OR (gvssB = "yes") then

Response.Write "<table>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "<p>Marker de stik du har i apparat " & getApparatA() &"</p>"
For t1 = getValgtStikStoerrelseLA() to getValgtStikStoerrelseUA()
Response.Write "'&getVaelgtStikA(t1)&'<input type='checkbox' name='as'&'&t1&'><br>"
Next
Response.Write "</td>"

Response.Write "<td>"
Response.Write "<p>Marker de stik du har i apparat " & getApparatB() &"</p>"
For t2 = getValgtStikStoerrelseLB() to getValgtStikStoerrelseUB()
Response.Write "'&getVaelgtStikB(t2)&'<input type='checkbox' name='as'&'&t2&'><br>"
Next
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"

Response.Write "<input type='submit' value='Ok'>"

Else
Response.Write "<p>ingen stik til dig idag</p>"
Response.Write "gvssA =" & gvssA & ""
Response.Write "gvssB =" & gvssB & ""

End if

Response.Write "</form>"

End Sub

%>

Synes godt om

snowflake7 Nybegynder

09. marts 2004 - 21:17 #18

smid lige et svar igen fennec!!!
jeg laver et nyt spg til det andet.

Synes godt om

fennec Nybegynder

10. marts 2004 - 08:09 #19

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS