<%
Dim adoCon 'Database Connection Variable
Dim SQLtekst 'Database query string
Dim rsThisUser 'Database Recordset Variable
Dim CV
CV = Request.QueryString("Nr")
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DBQ=" & Server.MapPath("db/Brugere.mdb") & ";pwd=XXX;Driver={Microsoft Access Driver (*.mdb)}"
SQLtekst = "SELECT * FROM Brugerliste WHERE Nr = '" & Request.QueryString("Nr") & "'"
Set rsThisUser = adoCon.Execute( SQLtekst )
'if NOT rsThisUser.EOF Then
' rsThisUser.MoveFirst
' insertMiniCV rsThisUser.Fields("Nr"), rsThisUser.Fields("Overskrift"), rsThisUser.Fields("Joboensker"), 'rsThisUser.Fields("Forhold"), rsThisUser.Fields("Uddannelse"), rsThisUser.Fields("Erfaring"), 'rsThisUser.Fields("Kompetencer"), rsThisUser.Fields("Egenskaber"), rsThisUser.Fields("Oplysninger")
'End If
'rsThisUser.Close
Set adoCon = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Language" content="da">
<meta name="Author" content="IQjob.dk">
<meta name="COPYRIGHT" content="All rights reserved">
<meta name="description" content="Jobsøgere på
www.IQjob.dk: Gode hoveder søger">
<meta name="keywords" content="jobformidling intelligens Mensa IQ job top 2%">
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon">
<link rel="stylesheet" href="IQjobopslag.css">
<title>IQjob - Mini-CV</title>
</head>
<body link="white" alink="white" vlink="white">
<% =CV %>
</body>
</html>
---
Variablen CV ændres af en anden funktion, som udelades her.
Jeg har deaktiveret nogle linjer, som optræder EFTER at fejlen kommer.
